Проект "История информационных технологий"

Ссылка на реферат
Кроссворд: 

Презентация:

Циклы в Паскале. Домашнее задание

var i,n: integer;

begin
writeln('Введите n');
readln (n);
i:=0;
repeat
begin
writeln(i);
i:=i+1;
end;  
until i=n+1;
read;
end.