Возможно, что гиперссылки
Uses crt,graph;
var
gd, gm, xc, yc, r, x, y: integer;
begin
clrscr;
repeat
writeln('Vvedite koordinaty levogo kolca, x=[50..300], y=[50..350]:');
readln(xc, yc);
until((xc >= 50) and (xc <= 300)) and ((yc >= 50) and (yc <= 350));
gd := 0;
initgraph(gd, gm, '');
setbkcolor(15);
cleardevice;
r := 50;
setlinestyle(0, 0, 3);
setcolor(9);
circle(xc, yc, r);
setcolor(8);{темно-серый, черный не нарисовать}
circle(xc + 2 * r, yc, r);
setcolor(12);
circle(xc + 4 * r, yc, r);
setcolor(14);
circle(xc + r, yc + r, r);
setcolor(10);
circle(xc + 3 * r, yc + r, r);
readln
end.
Думаю, А (<span>для того, чтобы представленные сведения можно было запрограммировать в числовом виде на компьютере</span>) подходит.
Var a,b,c:integer;
Begin writeln('Введите длину в сантиметрах');
readln(a);
b:=a div 100;
c:=a mod 100;
writeln(a,' см = ', b, ',', c, ' м');
End.
Результат выполнения см. на рисунке