Вывести на экран меньшее из двух данных чисел x = 50 y=25

Я точно не уверен, но хз как решить

Program asd;
USES crt;
Const x=50;
Const y=25;
var a,b,c,min:real;
BEGIN
clrscr;
min := x;
if y < min then min := y;
Writeln('Minimalnoe chislo: ',min);
Readln;
END.
Все очень просто, это не массивы, а простые условия !