Ну, раз заменять предложение, то...)
var a: string;
begin
readln(a);
if (a = 'Не то предложение') then a := '...';
writeln(a);
<span>end.</span>
<span>Cele dintai lecturi - Первое чтение</span>
1)Program n_1;
var x,y,z,c:integer;
begin
readln (x,y,z);
c:=x;
if c>y then c:=y;
if c>z then c:=z;
writeln (c);
end.
2)Program n_2;
var x,y,z:integer; q,w,e:boolean;
begin
readln (x,y,z);
q:= (y>x) and (z>x);
w:= (y<x) and (y<z);
e:= (z<y) and (z<x);
if e=True then writeln (z);
if w=True then writeln (y);
if q=True then writeln (x);
end.
3)Program n_3;
var x,y,z:integer;
begin
readln (x,y,z);
if (x<y) and (x<z) then writeln (x);
if (y<x) and (y<z) then writeln (y);
if (z<y) and (z<x) then writeln (z);
end.
1. Пусть x - количество груш.
I = log(2)[1/(x/36)] = log(2)[36/x] = 2; 36/x = 2^2; x = 9
1: 1
2: 1
3: 1 + 1 = 2
4: 2 + 1 = 3
5: 3 + 2 = 5
6: 5 + 3 = 8
7: 8 + 5 = 13
8: 13 + 8 = 21
9: 21 + 13 = 34
10: 34 + 21 = 55
1, 1, 2, 3, 5, 8, 13, 21, 34, 55, ......
Последовательность чисел Фибоначчи / Fibonacci numbers