Напишите 2 программки ( турбо Паскаль)1)для нахождения периметра треугольника, если его

1)
var a,b,c:real;
begin
write('Введите три стороны треугольника: ');
readln(a,b,c);
if((a lt; b+c) and (b lt; a+c) and (c lt; 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.