Даны три числа, найти максимальное из них и заменить квадратом этого числа. Помогите решить плииз с помощью паскаля.

а можно на русском?

поменяйте слова в ковычках и все. у меня русский в паскале не работает

например: writeln('введите 3 число:');

vara, b, c: integer;beginwriteln('vvedite 1 chislo:');readln(a);writeln('vvedite 2 chislo:');readln(b);writeln('vvedite 3 chislo:');readln(c);writeln('otvet');if (a<b)and(c<b) then writeln(sqr(b))elseif (b<a)and(c<a) then writeln(sqr(a))elseif (a<c)and(b<c) then writeln(sqr(c));end.