Без операционной системы и программного обеспечения, ну и без компьютера, конечно
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var x:=ReadReal('x=');
if x<2 then Writeln(9+2*x)
else Writeln(2*x*x+7)
end.
В приложении...............................................(если я правильно поняла)))
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if a<>b then begin
if (a>b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.
незачто