program dybko3333 mode objfpc uses IFDEF UNIX IFDEF UseCThreads cthrea

program dybko3333;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
var c,p,s:integer;

begin
  s:=1;
  Randomize;
  C:=random(1000);
  Writeln('Компьютер загадал число от 1 до 1000. Угадаешь?');
  read(p);
  while c<>p do

begin
  s:=s+1;
  if c<p then
  writeln ('Меньше')
  else writeln ('Больше');
  readln (p);
  end;
  writeln('Молодец! Ты выйграл за ', s, ' ходов');
  readln();
end.