Снизу
Объяснение:
program Programma1;
var A:integer;
begin
readln(A);
while A <= 30 do
write (A, ' ');
A := A + 4;
end;
end.
Снизу
Объяснение:
program Programma1;
var A:integer;
begin
readln(A);
while A <= 30 do
begin
write (A, ' ');
A := A + 4;
end;
end.