Complete the text Use: vegetables, delicious, world, makes, cook, dishes, succes, recipes

 var n: integer;
begin
 readln(n);
 repeat 
 n:= n div 10;
 until n<10; 
 writeln(n); 
end.