1) Проверит суммо 1, 2, 3 равно 4, 5, 6. 2) Проверитсумма все числе делиться 5 или 7 .
3) Получит число обратной, в водим
три число существуетли треугольник.

program sum;

var L,S:real;

begin

 writeLn('введите растояние');

 read(L);

S:=60*L;

writeLn(60, '*' ,L, '=',S);

end.

Объяснение:

program sum;

var L,S:real;

begin

 writeLn('введите растояние');

 read(L);

S:=60*L;

writeLn(60, '*' ,L, '=',S);

end.