Question

Пояснение к программе:

У вас дан фрагмент программы, ваша задача дополнить его так, чтобы это была полная программа на Паскале.

Заполните пробелы

____________________;

var a,b,s:_____________;

begin

a:=1;

b:=2;

while a+b<8 do

begin

a:=a+1;

b:=b+2;

end;

s:=a+b;

writeln('___=',___,'___=',___,'___=',___);

end.