Anonymní profil lama – Programujte.com

teda měla tam být neostrá nerovnost takže >= místo >

v případě, že 'a' a 'b' jsou celá čísla, třeba takto:

program interval;
var a,b: integer;
begin
writeln('zadejte cislo a');
read(a);
writeln('zadejte cislo b (vetsi nez a)');
read(b);
while a<b do
begin
if a mod 3 = 0 then write(a,' ');
a:=a+1;
end;
end.