Дано целое число c. напишите программу, которая возводит в квадрат частное от целочисленного деления числа с на 5 и выводит на экран монитора результат.

program z1; var c: integer; x,y: real; begin read(c); x: =c div 5; y: =sqr(x); writeln('y=',y); end.

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var a: = arrrandom(10, -100, 100); a.println; writeln('количество отрицательных элемнтов -> ', a.where(t -> t < 0).count); writeln('сумма отрицательных элеменов -> ', a.where(t -> t < 0).sum); writeln('среднее значение положительных элементов -> ', a.where(t -> t > 0).average); if a.where(t -> t > 0).count > 0 then   writeln('максимальное положительное значение -> ', a.where(t -> t > 0).max) else writeln('положительных чисел нет'); end.

программа, которая сравнивает первые 3 со вторыми 3мя ниже, но я не понял к чему было упоминание корня в первоначальном

program bilet; var

a,b,c: longint; i: byte; beginwriteln('vvrdite nomer'); readln(a); b: =0; c: =0; for i: =1 to 6 do      if i< 4 then begin            b: =b+(a mod 10);             a: =a div 10;             end      else begin                c: =c+(a mod 10);                 a: =a div 10;       end; if b=c then writeln('schastlivuy ',c,' = ',b)else writeln('uvyu ',c,' < > ',b); readln; end.