//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var zarazheno := 1;
var sum := zarazheno;
for var i := 1 to 4 do
begin
zarazheno *= 10;
sum += zarazheno;
WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);
end;
end.
Вывод
1 Новозараженно = 10, всего заражено = 11
2 Новозараженно = 100, всего заражено = 111
3 Новозараженно = 1000, всего заражено = 1111
4 Новозараженно = 10000, всего заражено = 11111
Объяснение:
На чистом паскале никак. Либо используя графические библиотеки (например, 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;
