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

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

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

Язык программирования: Паскальvara, b, c, min : integer;beginreadln (a);readln (b); readln (c); min := a;if b < min thenmin := b;if c < min thenmin := c;writeln (min);end.