Преобразовать тип real к integer

uses crt;
var a,b,c:integer;
begin
write('Введите ваш вес(кг):');
readln(a);
write('Введите ваш рост(м):');
readln(b);
c:=a/sqr(b);
if c<20 then writeln('недостаточный вес');
if c>20 and c<25 then writeln('нормальный вес');
if c>25 and c<30 then writeln('небольшой избыток веса');
if c>30 and c<40 then writeln('это уже лишний вес');
if c>40 then writeln('иди в спортзал, толстяк');
end.

uses crt;
var a,b,c:integer;
begin
write('Введите ваш вес(кг):');
readln(a);
write('Введите ваш рост(м):');
readln(b);
c:=a div sqr(b);
if c<20 then writeln('недостаточный вес');
if (c>20) and (c<=25) then writeln('нормальный вес');
if (c>25) and (c<=30) then writeln('небольшой избыток веса');
if (c>30) and (c<=40) then writeln('это уже лишний вес');
if c>40 then writeln('иди в спортзал, толстяк');
end.

uses crt;
var a:integer;
  b, c:real;
begin
write('Введите ваш вес(кг):');
readln(a);
write('Введите ваш рост(м):');
readln(b);
c:=a / sqr(b);
if c<20 then writeln('недостаточный вес');
if (c>20) and (c<=25) then writeln('нормальный вес');
if (c>25) and (c<=30) then writeln('небольшой избыток веса');
if (c>30) and (c<=40) then writeln('это уже лишний вес');
if c>40 then writeln('иди в спортзал, толстяк');
end.