Дано трёхзначное число напишите программу выводящую двузначное число состоящие из первой и третьей цифры числа

Var
  x,y: integer;
begin
  write('Введите число X: ');
  readln(x);
  y:=(x div 100)*10+x mod 10;
  writeln(y);
end.