1. В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег
на 15% от предыдущего значения. По данному числу y определите номер дня, на который пробег
спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное
число. (цикл while)

begin

 var (x, y) := ReadReal2;

 var z := 1;

 while x < y do

 begin

   x := x * 1.5;

   z += 1;

 end;

 Print(z);

end.

uses crt; var

  a,b: integer; begin  write('введи возраст саши: '); read(a);

  write('введи возраст маши: '); read(b);

  writeln;   if a> b then write('саша старше маши');   if a< b then write('маша страше саши');   if a=b then write('маша и саша - ровесники'); end.

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.