Question

Записать на Паскале задачуданы два числа х, у большее из них возвести в квадрат.

Answer 1

Var a, b : integer;
begin
readln(a,b);
if a > b then written(a*a)
else writeln(b*b);
readln()
end.
––––––––––––––––––––––
Если что-то не понятно - пиши

Answer 2

Пример решения на языке Pascal:

var x, y, result: integer; begin write('Введите значение x: '); readln(x); write('Введите значение y: '); readln(y); if x > y then result := x * x else result := y * y; writeln('Большее из чисел возвести в квадрат: ', result); end.