Надо нарисовать в программе pascalabc в исполнителе graph или graphabc начертить круг внутри круга внутри круга с команнды for : = to do begin​

//Pascal
//1
begin
writeln((15 div 4)*18);
end.

//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.

//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.

//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.

//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.

тип компьютера:  системный блок

серия: Expert PC Basic

Тип охлаждения: Воздушное

Страна-производитель: Китай

Процессор (модель): Intel Core i7-9700 (Coffee Lake)

Процессор (тактовая частота - turbo), ГГц : 3,0 - 4,7

Процессор (кол-во ядер): 8 ядер / 8 потоков

система охлаждения: BOX

Чипсет материнская плата: Intel B360

Видеокарта (тип): интегрированная

Оперативная память (объем) 8 ГБ    

Встроенный накопитель (тип)

SSD

Встроенный накопитель (объем), ГБ: 256 (SSD)

блок питания: 300 Вт

Цвет : черный

вес: 5,5

Объяснение: