Ну, раз заменять предложение, то...)
var a: string;
begin
readln(a);
if (a = 'Не то предложение') then a := '...';
writeln(a);
<span>end.</span>
Если в паскале то вот
vara:array [1..30] of integer;i,s,k,n:integer;h:real;begins:=0;k:=0;writeln('введите количество чисел');read(n);randomize;for i:=1 to n do begina[i]:=random(100);write(a[i]:3);end;writeln();for i:=1 to n do beginif (a[i] mod 2=0) and (i mod 2=0) then begins:=s+a[i];k:=k+1;end;end;if k>1 then h:=s/k;writeln(h); if k=0 then begin writeln('таких чисел нет'); read; halt; end;<span>end.</span>
С а на 24 и дальше!!!!!!!!!!!!!!!!!!!!!!!!
600 мб переводим в килобайты, это = 614400кб. 61440 делим на 500 кб = 1228 (Таким образом узнали количевство фотографий в альбоме) Раз на одно фото уходит 6 сек., значит на просмотр 1228 фотографий будет затрачено 1228*6=7368 секунды. переводим 7368 сек в минуты 7368/60 = 122.8 минуты 122.8 минуты = 2 часа 2 мин