Мазмұн деген не информатика ​

агаааааааааааааааааааааааааааааа

Объяснение:ааааааааааааааааааааааааааааааагннннннннннннннннннн

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.