Требуется написать программу на языке Паскаль или Бейсик…

uses crt; var a,b,c: integer; beginclrscr; readln (a,b,c); if (a>b) and (a>c) then writeln ('Max chislo=',a); if (b>a) and (b>c) then writeln ('Max chislo=',b); if (c>b) and (c>a) then writeln ('Max chislo=',c); readln; end.