Решение задач № 3 и 4 стр35

program aaa;
var z,rez:real;
Begin
write ('Введите число');
read (z);
rez:=abs(z)/2 ;
write ('Число=',rez);
end.

Program bbb;
var d,rez:real;
begin
readln(d);
rez:=trunc(d)*3;
writeln(rez);
end.