Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.
GraphABC:
uses GrathABC;
var b: picture;
begin
b:= Picture.Create('1.png');
...
end.
Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.
Примерно это должно выглядеть так:
procedure OnKeyPress(key: integer);
begin
if key = 2 then b.Draw(10, 10);
end;
Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).
Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;
var
x,y,z:integer;
m:single;
begin
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m)
end.
Тестовое решение:
Введите x,y,z: 3 6 -2
-0.3
Borland Pascal 7.01
uses Crt;
function max(m,n:integer):integer;
begin if m>n then max:=m else max:=n end;
function min(m,n:integer):integer;
begin if m<n then min:=m else min:=n end;
var
x,y,z:integer;
m:real;
begin
ClrScr;
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m);
ReadKey
end.
Тестовое решение:
Введите x,y,z: 3 6 -2
-3.0000000000E-01