использовать Чертежник алг Богдан_1 нач опустить перо сместиться в точку(0, 11) сместиться в точку(6, 11) поднять перо сместиться в точку(0, 6) опустить перо сместиться в точку(6, 6) сместиться в точку(6, 0) сместиться в точку(0, 0) поднять перо сместиться в точку(8, 0) опустить перо сместиться в точку(8, 11) сместиться в точку(14, 11) сместиться в точку(14, 0) сместиться в точку(8, 0) поднять перо сместиться в точку(16, 0) опустить перо сместиться в точку(16, 11) сместиться в точку(22, 11) поднять перо сместиться в точку(22, 0) опустить перо сместиться в точку(22, -2) сместиться в точку(22, 0) сместиться в точку(30, 0) сместиться в точку(30, -2) сместиться в точку(30, 0) сместиться в точку(28, 0) сместиться в точку(28, 11) сместиться в точку(24, 11) сместиться в точку(24, 0) поднять перо сместиться в точку(32, 0) опустить перо сместиться в точку(32, 11) сместиться в точку(38, 11) сместиться в точку(38, 0) сместиться в точку(38, 5) сместиться в точку(32, 5) поднять перо сместиться в точку(40,0) опустить перо сместиться в точку(40, 11) сместиться в точку(40, 5) сместиться в точку(46, 5) сместиться в точку(46, 11) сместиться в точку(46, 0) кон
Второй способ (короткий):
использовать Чертежник алг Богдан_2 нач написать(30, "Богдан") кон
Uses System; var x: real; { процедура функция } function y( x: real): real; var a,b,c: real; begin a:=2.8; b:= -0.3; c:=4; if x<1.2 then Result:=a*Sqr(x)+b*x+c else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1) else Result:=a/x+Sqrt(x*x+1); end; { основная программа } begin write('Задайте значение x '); readln(x); writeln('Значение функции y = ',y(x)); end.