Question

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

Answer 1

Var
a, b, c: integer;
begin
writeln('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))else
if (b<a)and(c<a) then writeln(sqr(a))else
if (a<c)and(b<c) then writeln(sqr(c));
end.