Изменение содержания представления информации: собака — собака собака — dog собака — домашний питомец

Аппаратное обеспечение компа: уст-во ввода, уст-во хранения, уст-во обработки, уст-во вывода. уст-во ввода: клава, мышь, сканер, микрофон. уст-во хранения: жёсткий диск, дискета,cd-диски, флеш-накопители, оперативка. уст-во обработки: процессор. уст-во вывода: принтер, монитор, акустические колонки.    дерево: ствол, корни, ветки, листья. чуваки, учитесь не только списывать, но и учитесь думать своей бошкой, иначе  сральники будете мыть, вместо того, чтобы устроится на нормальную работу. 

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.