На завтра нужно 50 өтінемін көмектесіңіздерші тап ертеңгіге керек беремін өтініш көмектесіңіздерші‍♀️‍♀️‍♀️​

ответ:
//Введите натуральное число

readln(N);

//Создаем цикл для проверки каждого числа

for I := 1 to N do

begin

   //Создаем флаг, указывающий, является ли число делимым

   isDivisible := true;

   //Перебираем каждую цифру числа

   for J := 1 to Length(I) do

   begin

       //Если число не является делимым, установите флаг в false

       if (I mod StrToInt(I[J])) <> 0 then

           isDivisible := false;

   end;

   //Если число делимое, выведите его на экран

   if isDivisible then

       writeln(I);

end;

1) var a,i: integer; s: real;     begin       readln(a);         for i: =1 to 5 do                 s: =s+a; writeln(s: 4: 0); end. 2) var a,n,i: integer; s: real; begin readln(a,n);     for i: = 1 to n do         s: =s+a; writeln(s: 4: 0); end. 3) var n,i: integer; a,s: real; begin readln(a,n);     for i: = 1 to n do         s: =s+a; writeln(s: 4: 2); end. 4) const a='информатика'; var i,n: integer; begin       readln(n);           for i: =1 to n do               write(a,' '); end. 5) vari,n,a: integer; p: real; begin            readln(a,n);                 p: =1;                                 for i: =1 to n do                                              p: =p*a; writeln(p); end.