Напишите программу, которая вводит с клавиатуры натуральное число N и выводит квад-рат из символов «o» размером N´N:

Введите размер квадрата: 5

o

o

o

o

o

program Hello;

var n,i,j:integer;

begin

   writeln('Введите размер квадрата: ');

   readln(n);

   for i:=0 to n-1 do begin

   writeln(' ');

   for j:=0 to n-1 do write('o');

   end;

end.

первое

заголовок: уходид из дома

4.порощаться

6.выключить свет,газ,

второе

заголовок: приход в квартиру

3.поверни ключ

4.вынь ключ из скважины 

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.