С клавиатуры вводится строка 3 числа

[Tvorogok]

С клавиатуры вводится строка 3 числа-они вещественные
3 числа-длины сторон треугольника
посчитать площадь и периметр
если сумма двух сторон <=0 , то вывести сообщение,что нет решения
ЖЕЛАТЕЛЬНО С ОБЪЯСНЕНИЯМИ

[Anton_kl]

Program Z1; 
Var
a,b,c:integer; {стороны треугольнкика}
P,S:integer; {периметр, площадь}
Begin
 WriteLn ('Введите через пробел стороны треугольника');
 ReadLn(a,b,c);
 Begin
 If a+b<=0 then WriteLn('Нет решения');
 End;
 Begin
 P:=a+b+c;
 S:=sqr(p*(p-a)*(p-b)*(p-c));
 WriteLn('P = ',P);
 WriteLn('S = ',S);
 End;
End.

[Arigato]

Anton_kl, зачем плодить ненужные составные операторы? К тому же у вас проверяется только сумма двух сторон, а по задачи надо проверять суммы всех пар сторон. Кроме того, после сообщения "Нет решения" ваша программа все равно начнет искать решение.

[Poma][a]

+ твоя программа работать не будет если ты введешь все 3 числа через пробел, для это нужен Read, а не ReadLn