Даны 4 числа, найти наименьшее из них.(язык Паскаль)

Question

Даны 4 числа, найти наименьшее из них.(язык Паскаль)

Answer 1

Program pr; Var a, b, c, d:integer; Begin Write('A='); Readln(a); Write('B='); Readln(b); Write('C='); Readln(c); Write('D='); Readln(d); if a

Comments

Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if aif bif cif dend.

---

Боже, что за бред с выводом.

---

Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if aif bif cif dend.

---

Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if aif aif aif bif bif bif cif cif cif dif dif dend.

---

Бред. полный. Не хочет показать программу.

---

Мб так получится.
Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if aif aif aif bif bif bif cif cif cif dif dif dend. пшшмишщи

---

Ладно спасибо, но все же пытайся точно решать

---

Я точно решил. у меня в телефоне работает программа, а сюда копироваться не хочет