1.

program tridigit;

var
   n:integer;

begin
  n := 100;
  repeat
    write (n, );
    n := n + 1;
  until n gt; 999
end.


2.

program name10;

var
   name:String;
   i:integer;

begin
  name := Алексей;
  for i := 1 to 10 do
    writeln(name);
end.

3.

program nat_mult;

var
   sum,number: integer;

begin
  sum := 1;
  write (введите натуральное число: );
  read(number);
  while number gt; 0 do
    begin
      sum := sum * (number mod 10);
      number := (number div 10);
    end;
  writeln(Произведение цифр данного числа: , sum);
end.

4.

program mx_number;

var
   a,mx:integer;

begin
  repeat
    write(Введите натуральное число: );
    readln(a);
  until agt;0;
  mx:=0;
  while agt;0 do
    begin
      if a mod 10gt;mx then
        mx:=a mod 10;
      a:=a div 10;
    end;
  write(Наибольшая цифра: ,mx);
end.