1. Дано 3 числа. Найти произведение двух наименьших из этих чисел 
написать программу на pascal

Program DvachAnon;var n:integer;beginwrite('Введите натуральное число:' ); read(n); if (n mod 2 = 0) and (n/2 > 10) then writeln(n*2) else writeln(n)end.

Program DvachAnon;var n:integer;begin write('Введите натуральное число:' ); read(n); if (n mod 2 = 0) and (n/2 > 10) then writeln(n*2) else writeln(n)end.

это какая по счету задача?

7 вроде

спасиб