Составить программу которая вводит с клавиатуры четыре целых числа a,b,c,d (каждое число - отдельной командой "ввод") и выводит на экране минимальное среди них.Ничего кроме этого программа выводить не должна. При использовании системы Free Pascal для представления целых чисел используйте тип LongInt. Надо сделать в Pascal
program MinNumber; var a, b, c, d, min: LongInt; begin writeln('Введите четыре целых числа:'); readln(a); readln(b); readln(c); readln(d); min := a; if b < min then min := b; if c < min then min := c; if d < min then min := d; writeln('Минимальное число: ', min); end.
var
a, b, c, d, min: LongInt;
begin
writeln('Введите четыре целых числа:');
readln(a);
readln(b);
readln(c);
readln(d);
min := a;
if b < min then
min := b;
if c < min then
min := c;
if d < min then
min := d;
writeln('Минимальное число: ', min);
end.