9
Объяснение:
цикл while будет работать до тех пор, пока условие верно, то есть пока x < y. В самом теле цикла можно увидеть, что x увеличивается на x*0.1 каждую итерацию. d является своеобразным счётчиком.
Первая итерация:
p = 10 * 0,1 #p = 1
x = 10 + 1 #x = 11
d = 1 + 1 #d = 2
Вторая итерация:
p = 11 * 0,1 #p = 1, 1
x = 11 + 1,1 #x = 12,1
d = 2 + 1 #d = 3
Третья итерация:
p = 12,1 * 0,1 #p = 1,21
x = 12, 1 + 1,21 #x = 13,31
d = 3 + 1 #d = 4
И так до тех пор, пока x < 20
В итоге на консоль будет выводиться 9.
(p.s. если после цикла не будет соответствующих отступов в теле цикла, то будет ошибка.)
var
c1,c2,b,m:integer;
begin
write('Введите число 1 ');
readln(c1);
write('Введите число 2 ');
readln(c2);
if c1>c2 then begin b:=c1, m:=c2; c2:=m+b; c1:=m*b; end
else
b:=c2, m:=c1; c1:=m+b; c2:=m*b;
end:
write('Первое число=',c1,'Второе число=',c2);
end.