Question

Написать простую программу(паскаль).
Дано три числа a, b, c .Найти среди них минимальное.

Answer 1

program z1;
uses crt;
var a,b,c,min:integer;
begin
writeln ('vvedite a,b,c');
readln(a,b,c);
if a < b then min:=a else min:=b;
if min>c then min:=c;
writeln('minimal: ',min);
end.

Answer 2

var a:array [1..3] of integer;
a,b,c,i,min : integer;
begin
readln(a,b,c);
for i:=1 to 3 do readln(a[i]);
min:=a[1];
for i:=1 to 3 do
if a[i]writeln(min);
end.