Задача 4,5,6 пожалуйста

задача4var ves: real;beginwrite ('введи вес боксера');read (ves);if ves <60 then writeln ('боксер легкого веса');if (ves >60) and (ves<64)  then writeln ('боксер первого полусреднего веса');if (ves >60) and (ves<69) then writeln ('боксер полусреднего веса');end.задача 5var a,b,c: real;beginwriteln ('введи три числа');readln (a,b,c);if (a> 0.7) and (a<5.1) then write (a); if (b> 0.7) and (b<5.1) then write (b); if (c> 0.7) and (c<5.1) then write (c); end.