1)
program m;
uses crt;
var i,a,b,c,min:integer;
begin
clrscr;
readln(a,b,c);
if a<min then min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln(' ',min);
readkey;
end.
2)
program m;
uses crt;
var i,a,b,c,min,d:integer;
begin
clrscr;
readln(a);
min:=a;
for i:=1 to 2 do
begin
readln(a);
if a<min then min:=a;
end;
writeln(min);
readkey;
end.
3)
program m;
uses crt;
var i,a,b,c,min,d:integer;
begin
clrscr;
readln(a,b,c);
if a<b then b:=a;
if c<a then b:=c;
writeln(b);
readkey;
end.
иногородних женщин 8, а мужчин 18 из них 5 артисты .
Мне так кажется.