Составьте программу , которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150 (блок схема )

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.

БЛОК СХЕМА