Ответ(ы) на вопрос:
Гость program min;
uses crt;
var a,b,c:integer;
begin
read(a,b,c);
if (a
Гостьvar i,k,min:integer;
begin
readln(k);
min:=k;
for i:=1 to 2 do begin
readln(k);
if k>=min then min:=k;
end;
writeln(min);
end.
думаю, объяснять не нужно
Не нашли ответ?
Похожие вопросы