Помогите пж! Язык Pascal. Оператор условия!
1)Даны три числа. Выведите наименьшее из них.
2)Определите, является ли введенное с клавиатуры число кратным 3, 7, 9.
3)Дано четырехзначное число. Верно ли, что число содержит ровно три одинаковые цифры.
------------------------------------------------------------------------------------------------------------------
Срочно!

все

изменил нормальней

program PrograVtoraya;var k,i:integer;begin writeln('vevedite chislo'); readln(k); if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then begin writeln('chislo kratnoe 3, 7,9'); end else begin writeln('chislo ne kratno 3,7,9'); end; writeln('End?'); readln(i);