Рибocома Program for1;
 var
    i, n: integer;
 begin
    write ('Количество знаков: ');
    readln (n);
writeln('Выводим ', n, 'знаков (*) ')
  for i := 1 to n do
        write ('(*) ');
 readln
end.

program for2; //программа, которая будет выводить на экран квадраты чисел от 1 до 10.
 uses crt;
var N:integer;
begin
  clrscr;
   For N:=1 To 10 Do
     writeln (sqr(N));
  readln
end.

Девушка10кл Пример 1. Квадраты чисел от 2-х до 10-и. for x:=2 to 10 do WriteLn(x*x); Пример 2. Латинский алфавит. for ch:='A' to 'Z' do Writeln(ch); Пример 3. Использование цикла с downto. for i:=10 downto 1 do WriteLn(i); Пример 4. Использование составного оператора. for x:=1 to 10 do begin y:=2*x+3; WriteLn('f(',x,')=',y); end;