Написать алгоритм в паскале.
Нужно добавить в код сравнение k3 и k4.
var
k,k1,k2,k3,k4:integer;
min:integer;
begin
Randomize;
{получение случайных чисел в интервале от 0 до 500}
k1:=random(500);
k2:=random(500);
k3:=random(500);
k4:=random(500);
writeln('1 число: ', k1);
writeln('2 число: ', k2);
writeln('3 число: ', k3);
writeln('4 число: ', k4);
{поиск минимального числа}
if (k1 < k2) then
min := k1
else
min := k2;
if (k3 < k4) then
min := k3;
if (k4 < min) then
min := k4;
writeln('Минимальное число min=',min);
end.