Думаю, что похоже ;)
program love;
uses GraphABC;
begin
line(20,60,20,180);
line(20,180,60,180);
line(60,180,120,100);
line(220,100,300,180);
line(300,180,380,260);
line(120,320,120,420);
line(120,420,100,420);
line(220,340,220,420);
line(220,420,260,420);
rectangle(60,180,300,320);
rectangle(120,20,220,100);
<span>end.</span>
Program SpTrap;
var y , x :integer;
begin
writeln ('ВВеди переменную x');
readln (x);
y:=0
<span>у=(х+1)/2х;
writeln('y=',y);
end
-----------------------------------------------------------------
</span>1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод ('Функция не определена')
7. Конец алгоритма
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод ('Функция не определена') или ('y=',y)
8. Конец алгоритма
Var A,B,D,n:integer;
Begin
Write('n = ');ReadLn(n);
A:=1;
B:=1;
For n:= 1 to n do
Begin
D:=A;
A:=A+B;
Swap(A,B);
Write(D,'/',A,' ');
End;
End.