Написать программу по информатике! найти произведение двузначных нечетных чисел, кратных 13. нужно написать программу на цикле с предусловием, на паскале.

var i, ans: longint;

begin i : = 10; ans : = 1; while i < 100 do begin if (i mod 13 = 0) and (i mod 2 < > 0) then ans : = ans * i; inc(i); end; writeln(ans); end.

1).  ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків. 2).   завжди дотримуйтесь сімейних правил інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі.3).  завжди будьте ввічливими у електронному листуванні, і ваші приятелі будуть ввічливими з вами.4).  не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі.

Var               r1, r2, r3, s1, s2, s3: integer;               begin                         writeln('введите размеры рации и чемодана');                         readln(r1, r2, r3, s1, s2, s3);                           if ((r1 < s1) and (r2 < s2) and (r3 < s3)) or                         ((r3 < s3) and (r2 < s1) and (r1 < s2)) or                         ((r1 < s1) and (r2 < s3) and (r3 < s3)) or                         ((r2 < s2) and (r1 < s3) and (r3 < s1)) or                           ((r2 < s1) and (r3 < s2) and (r1 < s3)) or                         ((r1 < s2) and (r3 < s1) and (r2 < s3)) then writeln('помещается')     else writeln('не помещается'); end.