===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
"З<span>аписями с последнего урока" воспользоваться не могу, потому задание сделано самым примитивным образом. Недостающий текст добавляйте сами. HTML-файлы и рисунок прилагаются.
Нет, HTML приложить сайт не даёт, так что посылаю в текстовом виде, тип файла (расширение) меняйте сами.</span>
Финикийский V век
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
1) Приводим дорби к общему знаменателю
Uses crt,graph;
var n:integer;
procedure init;
var gd,gm:integer;
begin
gd:=vga;
gm:=vgahi;
initgraph (gd,gm,'');
end;
procedure error;
begin
closegraph;
writeln ('error!');
end;
begin
write ('Number: ');
readln (n);
init;
if graphresult=0 then
begin
if n=1 then line(100,100,100,200) else
if n=2 then circle(200,100,50);
end else error;
end.