Program naim4;var a,b,c,d,min:real;begin;writeln('введите 4 числа');readln;min:=a;if b <...

Question

Program naim4;
var a,b,c,d,min:real;begin;
writeln('введите 4 числа');
readln;
min:=a;
if b < min then min:=b;
if c < min then min:=c;
if d < min then min:=d;
writeln('минимальное ',min);
readln;
end.

нужно найти минимальное число из 4 данных.Что не так?

Answer 1

4 строка, там нужно 
readln(a, b, c, d);

Comments

Ох,забыл что 1 переменная не нжна.Спасибо

Answer 2

В конце не writeln(min) - это ввод инфы а readln(min)

Comments

Оформи там сам