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

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.