Составить программу в паскале по алгоритму

Question

Составить программу в паскале по алгоритму

---

Answer 1

Program b_1;
var a,b,i:integer;
begin
b:=20;
write('Введите любое натуральное число: ');
readln(a);
for i:=1 to 10 do
if a>b then a:=a-3 else b:= b-1;
writeln(a,b)
end.