Question

пожалуйста, помогите решить задачи по Паскалю!!!

1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения,

ПОМОГИТЕЕ

Answer 1

Пишу с планшета, так что заранее извиняйте если что)
Var
a,b:integer;
begin
Readln(a);
Readln(b);
If a>b
then  b:=sqr(b)
else a:=sqr(a)
End.
Как то так)

Answer 2

Огромное спасибо за решение!