program abc;
uses crt,graphabc;
const
name: array [1..5] of string=('ñåìÿ','ïðîðîñòîê','çåëåíûé ïðîðîñòîê','ðàñòåíèå ñ öâåòêîì','ñ ïëîäîì');
var
k:array[1..5]of integer;
i:integer;
begin
setwindowsize(300,450);
setwindowcaption('æèçíåííûé öèêë ðàñòåíèÿ');
setfontcolor(clgreen) ;
setfontsize(16);
setfontstyle(fsbold);
hidecursor;
for i:=1 to 5 do
begin
k[i]:=loadpicture('D:\pic\plant'+inttostr(i)+'.jpg');
drawpicture (k[i],0,35);
textout(50,10,name[i]);
sleep(1500);
if i<=3 then clearwindow;
end;
end.
Объяснение:
к pascal abc
находит большее число