program Bevardė7;
 
var x:integer;
 
begin
 
  WriteLn('Iveskite x');
 
  ReadLn(x);
 
  if x<=5 then
 
  writeLn('x yra mažiau už 5 ir jis yra lygus:',x)
 
  else
 
  writeLn('x yra daugiau už 5 ir jis yra lygus:',x);
 
  ReadLn;
 
  Readln;
 
end.