Во дворце 40 залов. известны длина, ширина и высота каждого зала. вычислить площадь пола и объем каждого зала.

program 1;

var i, dlina, shirina, visota,  n, s, v : integer; beginwriteln(’введите число залов‘); readln (n); for  i: =1  to  n  do  beginwriteln(’введите длину,ширину и высоту зала‘); readln (dlina, shirina, visota); s: =dlina*shirina; v: =s*visota; writeln(‘площадь  пола=’,s,’  объем  зала=‘,v); endend.

если это 8-9 класс, то должно быть

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.