multiplos pascal

program multiplos;

uses crt;
var i ,num1,num2 : byte;

BEGIN
    writeln('this program list the multiples of a two numbers until 200');
    writeln('programe pour doner les multiples de deux numeros jusqua 200');
    writeln('programa para calcular os multiplos de dois numeros até 200');
    writeln;
    writeln(' first number? premier numero? primeiro numero?');
    readln(num1);
    writeln(' another number? autre numero? outro numero?');
    readln(num2);
    for i:=1 to 200 do
    if (i mod num1=0) and (i mod num2=0) then write(i,' ');
END.