Var x,f : real;
begin
write('x='); readln(x);
if x>0 then f:=ln(x)+9 else f:=-x/(x*x-7);
writeln('f(x) = ',f);
<span>end.</span>
Третий ответ, если составить цикл и ветвление то он пройдет все клетки
A + b = c
b - c = a
a / b = a
Uses Crt,GraphABC;var i,n,q,c:integer;beginhidecursor;Writeln('Введите количество досок N:');Read(n);clearwindow;For I:=1 to n dobeginc:= clyellow;SetPenColor(c);SetPenWidth(2);q:=40*i;MoveTo(100+q,340);LineTo(100+q,130);LineTo(120+q,100);LineTo(140+q,130);LineTo(140+q,340);LineTo(100+q,340);floodfill(100+q+10,200,c);<span>end;</span>