Question

Даны переменные A,B,C,D найти MAX и MIN надо текст для паскаля

Answer 1

Var a,b,c,d,n:integer;
begin
readln(a,b,c,d); 
n:=a;
if a<b then
n:=b;
if b<c then
n:=c;
if c<d then
n:=d;
writeln(n);
end.

Answer 2

Program jij;
uses crt;
var a, b, c, d:integer;
Begin
clrscr;
writeln(''Введите четыре числа через пробел );
readln(a, b, c, d);
If a>b then max:=a; else max:=b;
If c>max then max:=c;
If d>max then max:=d;
If a<b then min:=a; else min:=b;
If c<max then min:=c;
If d<max then min:=d;
writeln('Максимальное ',max,' Минимальное ',min);
readln;
End.