Информатика. Напишите пожалуйста программу.

Question

Информатика. Напишите пожалуйста программу.

---

Answer 1

1. 
var
  a,b,c,x: integer;
begin
  read (a,b,c);
  x:=a;
  if b>x then x:=b;
  if c>x then x:=a;
  write (x);
end.