"Да" надо заключить в 'Да'
А вообще, лучше использовать цифры. Например, 1 и 2, Да и Нет соответственно. А в выводе указать, "Введите 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.
№2:
а) Пусть a = "Иван внук Петра", b = "Иван внук Дарии", тогда высказывание можно записать как: a ∧ b.
б) Пусть a = "при высокой доле рынка темпы рынка низкие",
b = "продукт относится к категории 'денежного мешка' ",
c = "продукт относится к категории 'дойной коровы' "
d = "продукт дает большие доходы",
f = "продукт характеризуется малыми затратами в связи со стабильностью рынка", тогда можно представить так:
a -> ((b ∨ c) ∧ (d ∧ f))