4000:60с=66.66666666666667
66.66666666666667*45=3000
Var r,h,s,v: real;
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
v:=pi*r*r*h;
writeln('Полная площадь цилиндра равна ',s);
writeln('Объем цилиндра равен ',v);
<span>end.</span>
Получается буква Л
(Использовал декодер)
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A<0 then A:=A*A;
WriteLn(A)
End.
Var
X,Z:real;
Begin
Write('X = ');ReadLn(X);
if X>0 then Z:=X*X;
WriteLn('Z = ',Z);
End.
Var
a: array[1..12] of real;
s: real;
i: byte;
begin
for i:=1 to 12 do
begin
a[i]:=random(101);
write(a[i], ' ');
s:=s+a[i];
end;
s:=s/12;
writeln('');
write('Среднее арифметическое: ', s);
<span>end.</span>