INPUT N
F=1
FOR I=1 TO N
F=F*N
NEXT I
PRINT F
Если есть заварка, то я пойду пить чай, иначе не пойду.
Общее понятие Единичное понятие
композитор Чайковский
художник Репин
поэт Пушкин
озеро Байкал
горы Карпаты
город Париж
философ Сократ
полководец Суворов
учёный Ньютон
река Лена
город Чита
var
s: string;
begin
s := 'informatica';
writeln(s);
writeln(copy(s, 3, 5));
writeln(copy(s, 6, 3));
writeln(copy(s, 8, 3));
writeln(copy(s, 8, 2) + s[5]);
end.