даны 4 числа,найти минимальное,язык паскаль

Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(bif(cif(dwriteln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.