составить на Паскале прогу определения минимума из 3 чисел с использованием логических операций(прога должна иметь дружественный интерфейс) заранее спасибо)

Вопрос от посетителя:

составить на Паскале прогу определения минимума из 3 чисел с использованием логических операций(прога должна иметь дружественный интерфейс)

заранее спасибо)

Илюха отвечает:

uses crt;
var a,b,c,min:integer;
begin
writeln(‘Введи три числа: ‘);
readln(a,b,c);
min:=a;
if bif cwriteln(‘Наименьшее из этих чисел:  ‘,min);
readln;
end.