Укажите записи следующего алгоритма: Обозначить первое из заданных чисел Х, второе - Y.
Если Х = Y, то перейти к п. 8.
Если Х > Y, то перейти к п. 4, иначе перейти к п. 6.
Заменить Х на X – Y.
Перейти к п. 2.
Заменить Y на Y – X.
Перейти к п. 2.
Считать Х искомым результатом.

Построчная запись

Блок-схема

Словесное описание

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

у меня тоже даша получилось))