Вводится количество занятий (часов) по предмету и количество пропущенных занятий. вычислить процент посещаемости. составьте программу паскаль

Program progul ;
var total , lost , visit : real ;
begin
 write ('vvedite vsego zaniatii Total=' ) ;
  readln ( total ) ;
 write ( 'vvedite Propuskov =' ) ;
  readln ( lost ) ;
  visit := (total - lost ) / total * 100 ;
  writeln ( 'procent poseshaemosti=' , visit:5:2 , '%' ) ;
end.