Напишите программу по этому алгоритму

Question

Напишите программу по этому алгоритму

---

Comments

Паскаль?

---

да

Answer 1

Var a,b:integer;
Begin
a:=1;
b:=2;
While a + b < 10do
   Begin
   a:=a+2;
   b:=b+1      
   End;
a:=a*2;
b:=b*10;
WriteLn('a = ',a,' b = ',b)
End.

Comments

спасибо большое