Придумайте и изобразите свое диалоговое окно, подобное изображенному в учебнике окну "мой новый компьютер".постарайтесь использовать не менее четырёх элементов .​

writeln('a[',i,']=',a[i]);

readln;

end.

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)

1, 2, 5, 9 -однозначные числа

10, 25, 40, 41 - двузначные числа

1, 2, 11, 29 - простые числа

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.