Написать программу, которая вводит с клавиатуры числа 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. Так
