Как назовете файл, так он и будет называться. В данном случае имя word_2
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
Входы для информации: - гнезда (разъёмы для перефирии)- CD-DVD-привод- Дискетки- Сканирование через принтер- Ввод с клавиатуры, клик мышкой на опр. знаках- запись с микрофона- из интернета Выходы:- Гнёзда для перефирии- печать- в интернет- монитора<span> т.д. </span>
Var n:integer;
Begin
readln(n);
if n mod 2 =0 then writeln(n+2) else writeln(n+1);
end.
//PascalABC
var
a, b, c, P, S : real;
begin
write('Введите длину стороны A> ');
readln(A);
write('Введите длину стороны B> ');
readln(B);
write('Введите длину стороны C> ');
readln(C);
writeln('Вычисление по формуле Герона');
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника S = ', S);
end.