Помогите решить безотлагательно!!!!!! Pascal

1-ый можно не делать, основные этот 2 и 3

Да

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

2

begin
  var (x,y):=ReadReal2('Введите х и у');
  if x+ylt;20 then (x+10).Println
end.

Пример
Введите х и у 15.7 -4.2
25.7

3.1

begin
  var (c,b,k):=(26,5,0);
  while cgt;b do begin
    c-=b; k+=1
    end;
  Println(k,c)
end.

Итог
5 1

3.2

begin
  var (c,b,k):=(26,5,0);
  repeat
    c-=b; k+=1
  until clt;=b;
  Println(k,c)
end.