состасить программу на языке программирования Паскаль которая бы соответствовала бы следующему алгоритму

1

Ответы и объяснения

2013-02-16T11:21:22+04:00

var
b,a:integer;
begin
b:= 16;

readln(a);

while a < b do
begin
if a mod 2 = 0 then
a := a + 3
else
a := a + 1;
end;

a := a + 10;

writeln(a);
readln;
end.