a:=2*n;
if a mod 3 =0 then write (a, ' '); // кратно3
//Если кратно 5
if a mod 5=0 then write (a, ' '); // кратно 5
//если кратно x
if a mod x =0 then write (a, ' '); // кратно x
Как-то так. Надеюсь поймёшь. Должно быть правильно)
SCREEN 7
pi = 3.14
CIRCLE (100, 100), 60, 15, pi / 2, pi * 1.5
CIRCLE (160, 100), 60 * SQR(2), 15, pi * 3 / 4, pi * 5 / 4
<span>PAINT (45, 100), 14, 15</span>
Var i,j:integer;
Begin
for i := 1 to 9 do
for j := 1 to 9 do
if (i+j=i*j) then
writeln(10*i+j);
End.