2. Напишите программу, которая запрашивает у пользователя координаты точки и затем рисует квадрат размером 10х10, где введенная точка является координатой левого верхнего угла квадрата. Рисование квадрата оформите в виде процедуры. Для рисования ты можешь использовать следующие команды: Up() – поднять перо; Down() – опустить перо; Goto(x, y) – переместиться в точку с координатами (x, y).

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

радиосвязь!

попов!