Составить программу ** Паскале: нахождение наименьшей величины из 4.

Question

Составить программу на Паскале: нахождение наименьшей величины из 4.

Answer 1

Var a,b,c,d,res:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('‚Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('‚Введите четвертое число');
readln(d);
res:=a;if bif cif awriteln('—Ёб«® ',res,' б ¬®Ґ ¬ «Ґ­мЄ®Ґ');
readln;
end.


мог бы и побольше баллов поставить)