Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
<span>PRINT v2</span>
В клеточку, в линейку, в кружочек(да, такие есть)
Procedure PrintMatrix(matrix : array[,] of integer);
begin
matrix.Println;
end;