по информатике
сделайте где написано в низу домашнее задание

​

1. Сидеть не ближе 50см и не дальше 1.5м от монитора
2. Сохранять правильное положение рук на мыши и клавиатуре, при этом желательно использовать эргономические клавиатуры (Natural или Anti-RSI) и коврики со специальной подставкой для руки
3. Не пользоваться ЭЛТ-мониторами, только ЖК\IPS
4. По одному пользователю на компьютер (т.е. вдвоём за одним компьютером не сидеть)
5. Запускать программы только из белого списка разрешённых программ; впрочем, в этот список можно добавить проигрыватель виртуальных машин и запускать в нём что угодно.
6. Не кривляться на стуле, ага

Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.