Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, 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;
i:integer;
begin
writeln('Введите две строки:');
readln(s1);
readln(s2);
s:='';
for i:=1 to length(s1) do
if s1[i]<>'а' then s:=s+s1[i] else s:=s+'A';
s:=s+';';
for i:=1 to length(s2) do
if s2[i]<>'а' then s:=s+s2[i] else s:=s+'A';
writeln(s);
end.
Пример:
Введите две строки:
Ужасно умоляю
хоть какие-нибудь находки!
УжAсно умоляю;хоть кAкие-нибудь нAходки!