Егер n=5 болса, псевмакоды орындалу

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

read(n);

s = str(n);

n1 : = int(s[1]);

n2 : = int(s[2]);

n3 : = int(s[3]);

if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")

второе.

решается методом подстановки

var x, y: integer;

beginwriteln('введите два числа'); readln(x,y);  

while (x< > 0) and (y< > 0) do beginif x> y then x: =x mod yelse y: =y mod x; end; writeln('нод=', x+y);   end.