Var
x,y:integer;
begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.
Ответ : 54. Код на питоне, если нужен
В по дате появления с самого раннего
Multics
Unix
Ms dos
Program temp;
uses crt;
var
tem:array [8..20] of real;
min:real;
i:integer;
begin
for i:=8 to 20 do
begin
clrscr;
writeln('Vvedite temperaturu dlya ',i,' chasa zamera');
read(tem[i]);
end;
for i:=8 to 20 do if tem[i]<0 then min:=i;
writeln('Vpervue otricatelnaya temperatura otmechena v ',min);
readln;
end.