// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
№2
begin
var (x,y):=ReadReal2('Введите х и у');
if x+y<20 then (x+10).Println<br>end.
Пример
Введите х и у 15.7 -4.2
25.7
№3.1
begin
var (c,b,k):=(26,5,0);
while c>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 c<=b;<br> Println(k,c)
end.