Вводится последовательность целых чисел. Найти два наименьших элемента

program may4;
var x,min1,min2:integer;
begin
write('Введите x=');
readln(x);
min1:=x;
write('Введите x=');
readln(x);
min2:=x ;
{min1<=min2}
repeat
if x<=min1 then
begin
min2:=min1;
min1:=x;
end
else
if (min1<x) and (x<min2) then min2:=x;
write('Введите x=');
readln(x);
until (x=0);
writeln(‘Два наименьших числа равны' , min1, ' и ' , min2);
readln
end.

program may4;
 
var x,min1,min2:integer;    // min1 - переменная 1-го минимального числа , min2 - 2-го минимального числа
 
begin
write('Введите x='); readln(x); //вводим начальное значение X
min1:=x;     // будем считать , что 1-е минимальное = введенному ранее значению Х
write('Введите x='); readln(x); // опять вводим значение Х
min2:=x ;    // будем считать , что 2-е минимальное = введенному ранее значению Х
{min1<=min2}
repeat        // повторяем цикл , пока введенное значение X <> 0
if x<=min1 then    // сравниваем текущее значение x с минимальным , если меньше то
begin
min2:=min1;       // 2-е минимальное будет равно первому
min1:=x;          // а 1-е равно введенному значени X
end
else              // если значение X > 1-го минимального то
if (min1<x) and (x<min2) then min2:=x; // проверяем условие , если выполняется , то второе минимальное будет равно X
write('Введите x=');
readln(x);       //Повторно вводим значение Х
until (x=0);     //если X = 0 , завершаем цикл
writeln('Два наименьших числа равны: ' , min1, ' и ' , min2); // выводим 2 найденных минимальных значения
readln
end.

uses crt;
 
var x,y:integer;
 
begin
   Write('X = ');readln(x);
   case x of
   0..3: y:=sqr(x);
   else y:=4;
   end;
   Writeln('Y = ',y);
end.