program 123;
uses crt; /// Если паскаль
var
i:integer;
begin
writeln('Введите число: ');
readln(i);
for i:=2 to 150 do begin
if ((i mod 2 = 0) and (i mod 13 = 0)) then
writeln (i)
end;
end.
БЛОК СХЕМА
