Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и определяет, является ли прямаугольник квадратом. постройте данный прямоугольник ( единицу длины показать 5 пикселями)

uses crt,graphabc; var x,y,xc,yc: integer; begin xc: =windowwidth div 2; yc: =windowheight div 2;

write ('введите ширину '); read (x); write ('введите длину '); read (y);

if (x=y) then write ('это квадрат'); hidecursor; setpencolor(claqua); rectangle(xc-x*5,yc-y*5,xc+x*5,yc+y*5); floodfill(xc,yc,claqua); readkey;

end.

Компьютер-это новая универсальная инновация в прорыве науки. с компьютера мы можем искать любую информацию почти из любой точки мира! мы можем использовать компьютер для работы с ,сочинениями, мы можем с компьютера и специальных программ создавать рисунки, общаться с друзьями/родными/близкими, можем перекачивать фотографии/музыку/песни/файлы/видео на флэш-память (флэшку), на телефон, на планшет, и прочее.мы можем искать путь-маршрут,мы можем искать разную информацию о заведениях,кино/кафе/магазины, их телефоны,почты,адреса и так далее, но компьютер это ещё и всемирная паутина, да,это хорошо,что мы можем общаться   и передавать информацию из любой точки мира в любую точку мира,но это иногда затягивает и отрицательно сказывается на работе/на учёбе и прочее. компьютер замечательная вещь,но если только в меру,потому что от компьютера ещё и сажается зрение.

var  a: array[1..10] of integer; //массив целочисленных элементов а  i, n: integer; //n - количество элементов, равных 1begin  n: = 0; //обнуляем счетчик  write('исходный массив: ');   for i: = 1 to 10 do {заполняем массив случайными элементами от 1 до 10, распечатываем его и считаем количество элементов, равных 1}  begin  a[i]: = random(3);   write(a[i], ' ');   if a[i] = 1 then n: = n + 1;   end;   writeln;   writeln('количество элементов, равных 1: ', n); end.