Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Очень надо!!!!!!!!!!!!!!!!!!!!!!

Ответ оставил Гость

//Pascal ABC.NET v3.1 сборка 1172

uses graphABC;
Var
 r:integer;
begin;
readln(r);
rectangle(150-r,50,350+r,150+r*2);
line(200,100,300,100);
line(200,100+r*2,300,100+r*2);
arc(200,100+r,r,90,270);
arc(300,100+r,r,90,-90);
end.