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

задача4

var ves: real;

begin

write ('введи вес боксера');

read (ves);

if ves <60 then writeln ('боксер легкого веса');

if (ves >60) and (ves<64)  then writeln ('боксер первого полусреднего веса');

if (ves >60) and (ves<69) then writeln ('боксер полусреднего веса');

end.

задача 5

var a,b,c: real;

begin

writeln ('введи три числа');

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.