Написать программу, которая вводит с клавиатуры числа a и b и если a больше b, то найти остаток на деления а на в. еслиа равно в, то найти а квадрат, а если а меньше в, то найти целую чвсть от деления в на а.

Var a, b: Integer;
begin
    readln(a, b);
    if (a > b) then writeln(a mod b);
    if (a = b) then writeln(sqrt(a));
    if (a < b) then writeln(a div b);
end.

Так:)

Тебе на каком языке нужно?