Var p,i, n:integer;
begin
p:=1;
writeln('Введи n');
readln(n);
if n>=1 then
begin
for i:=1 to n do
p:=p*i;
writeln(p);
end else writeln('n>=1');
<span>end.
</span>
var
Y: integer;
begin
Write('Y = ');
Readln(Y);
Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);
Readln
end.
Природная система -Болото,степь ,вулкан . Технические - самолёт , . Смешанная - библиотекарш оркестр система счисления
Принтер, сканер, манипулятор мышь
Program task_1;
var
A, B, C : integer;
begin
read(A);
B := A;
C := 0;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
If A=C then
begin
writeln('Число симметрично')
end
else
begin
writeln('Число НЕ симметрично')
end;
end.