Сравните 956745 байт и 0.125 мбайт с вычислениями ​

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.

попробуйте так (turbo pascal):

program 1;

var s: string;

c: integer;

begin

write('vvedite nazvaniye zhivotnogo');

read(s);

writeln('vvedite kolichestvo syedennyh gribov');

readln(c);

writeln(s, ' ', 'syest', ' ', c, ' ', 'gribov');

end.

не знаю в каком виде это должно быть

1 ввод возрастов

2 если s> m то пишем "саша старше маши "

3 иначе если s=m то пишем "саша и маша ровестники"

4 иначе пишем "маша старше саши"

в первом нет строчки 3

наверно так

a: array [1..100] of longint