Пожалуйста, помогите решить задачи по Паскалю!!! 1) Даны два числа. Составить алгоритм и перевести его на язык программирования, который меньшее из них возводит в квадрат, а большее оставляет без изменения, ПОМОГИТЕЕ
Пишу с планшета, так что заранее извиняйте если что) Var a,b:integer; begin Readln(a); Readln(b); If a>b then b:=sqr(b) else a:=sqr(a) End. Как то так)
Огромное спасибо за решение!