6) Ответ 1 (определённость)
7) Ответ 1 (графические)
1)
var a,b,c:real;
begin
write('Введите три стороны треугольника: ');
readln(a,b,c);
if((a < b+c) and (b < a+c) and (c < a+b)) then write('Периметр треугольника: ',(a+b+c):9:3)
else write('Треугольник с данным сторонами не существует');
end.
2)
var a,b:real;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Сумма данных чисел: ',(a+b):9:3);
write('Произведение данных чисел: ',(a*b):9:3);
end.
<span>World Wide Web — распределенная система, предоставляющая доступ к связанным между собой документам, расположенным на различных компьютерах, подключенных к Интернету</span>
Var - объявление переменных
write - вывод на экран
read - ввод данных с клавиатуры
goto - переход к определенному оператору помеченному меткой.
Следовательно ответ: в)read