Question

помогите пж. Я плохо знаю, как писать программы.
var a, b: integer;
begin
for 1 to a do begin
read(b)
end.
выдаёт ошибку. Я хочу, ввести первую цифру. Например, 3, а потом 3 раза ввести числа и найти минимальное. Исправьте программу, пожалуйста.

Answer 1

Program KennyLans;

var a, b, c, d, min: real;

begin

write('Введите 4 числа для сравнения (через пробел): ');

read (a, b, c, d);

min := a;

if b < min then min := b;

if c < min then min := c;

if d < min then min := d;

writeln('Минимальное число: ', min);

readln;

end.