Составить алгоритм для решения : книга стоит d руб., журнал h руб. у покупателя денег s руб. хватит ли их на 3 журнала и 2 книги? .

S-  (d. 2+h.3)          наверно                               

01     ,       01111011
ну вот и все боже мой как такое не знать

1)
var n,i:integer;
begin
Read(n);
for i:=1 to n do
 write(i,); 
end.

2) Функция:
 function nod(a, b: Integer): Integer;
Var t: Integer;
Begin
    If b > a Then
    Begin
        t := a;
        a := b;
        b := t;
    End;
    t := a;
    While t > 0 Do
    Begin
        Result := t;
        t := t- b;
    End;
End;

Не ту вроде бы, да все правильно