program massiv;
var b:array[1..100]of integer;
r,n,m,i,p,k,a:integer;
begin
randomize;writeln ('a=');readln(a);
writeln('n=');readln(n);
for i:=1 to n do begin
b[i]:=random(50)-25;
writeln('a[',i,']=');
if b[i]>0 then begin r:=r+b[i];p:=r*2;
if b[i]>a then k:=k+1;
if ((b[i]<a)and(b[i]>0)) then m:=m+1;
end;end;writeln('удвоенная сумма положительных элементов ',p);
writeln('kол-во элементов массива , значения которых больше заданного числа',k);
writeln('количество положительных элементов не превсходящих заданного числа',m);
end.
num: real;
begin
write('Введите сторону квадрата: ');
read(num);
writeln;
writeln('Периметр квадрата (P): ', num * 4);
writeln('Площадь квадрата (S): ', sqr(num));
end.