<span>Подправил,решение гораздо меньше и используется меньше переменных
program ZADACHA1;
var
a,b,c:integer;
Begin
Writeln('Цыбулак Максим');
Readln(a);
Readln(b);</span>
Writeln('a+b=',a+b);
Writeln('a-b=',a-b);
Writeln('b-a=',b-a);
Writeln('a*b=',a*b);
Writeln('a/b=',a/b);
Writeln('b/a=',b/a);
Writeln('Квадрат числа ',a,' = ',sqr(a));
Writeln('Квадрат числа ',b,' = ',sqr(b));
Writeln('Корень числа ',a,' = ',sqrt(a));
Writeln('Корень числа ',b,' = ',sqrt(b));
end.
var
a, b, c:real;
count:integer;
begin
count := 0;
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if Frac(a) = 0 then
count := count + 1;
if Frac(b) = 0 then
count := count + 1;
if Frac(c) = 0 then
count := count + 1;
writeln('Целых чисел - ', count);
end.
6
123
231
321
312
213
132 вот так: