Question

введите 2 числа если первое больше второго то найдите их сумму иначе вычислите корень квадратный из меньшего

Answer 1

Program Pr1;
uses crt;
var a,b,c:integer;
Begin
writeln('a,b');
readln(a,b);
if a>b then c:=a+b
else c:=a*b;
writeln('Задача Решена');
end.

Answer 2

var a,b,c:real;Beginwrite('Введите два числа: ');readln(a,b);if a>b then c:=a+belse c:=sqrt (a);writeln('Ответ: ', c);end.