Var
k:integer;
begin
for k:=1 to 20 do begin
writeln('Привет',' ');
end;
for k:=1 to 20 do begin
write('Привет',' ');
end;
end.
Сканер состоит из нескольких частей механической которая движется вдоль листа на нем расположена лампа подсветки, свет отражаясь от листа попадает на зеркало которое в свою очередь отражает его на чувствительную матрицу вот ка на картинке
Если всё так как написанно, то программа вообще не скомпилируется. Должно быть
a:=1;b:=1;
while a<2 do
begin
b:=b+2;
end;
s:=a+b;
в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.
Импортировать это значит добавления вставка данных из внешнего источника в в текущий файл документ экспортр вывод данных текущего файла документа во внешний источник