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

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

Язык программирования: Паскаль

var
a, b, c, min : integer;
begin
readln (a);
readln (b); 
readln (c); 
min := a;
if b < min then
min := b;
if c < min then
min := c;
writeln (min);
end.