Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Паскаль, помогите решить задачу

Ответ оставил Гость

var

  a, b, c : Integer;

begin

  Write(Vvedite 1 chislo: ); ReadLn(a);

  Write(Vvedite 2 chislo: ); ReadLn(b);

  Write(Vvedite 3 chislo: ); ReadLn(c);

  if b > a then a := b;

  if c > a then a := c; 

  Writeln(Naibolshee chislo: , a);

  Writeln(Kvadrat chisla: , sqr(a));

end.