Опишите и сравните режимы дизайнера и блоки ​

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

всего известно до 5000 разных египетских иероглифов, однако в каждую эпоху использовалось не более 700-800. среди египетских иероглифов различают: 1) одноконсонантные знаки (около 30) - обозначавшие согласные звуки египетского языка; 2) двух-трехконсонантные знаки для фонетической передачи морфем; 3) идеограммы – для обозначения целых слов; 4) детерминативы – (непроизносимые) идеографические знаки, уточняющие значения слов.

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.