Помогите 3,5,6,7 нужно написать команды

Question

Помогите 3,5,6,7 нужно написать команды

---

Answer 1

№3
var a:real;
begin
read (a);
write (a,' - число, которое вы ввели');
end.

№5
var a,b,c:real;
begin
a:=13;
b:=46;
c:=789;
write (a,'  ',b,'  ',c);
end.

№6
var a,b,c:real;
begin
a:=13;
b:=46;
c:=789;
writeln (a);
writeln (b);
writeln (c);
end.

№7
var p:real;
begin
p:=3.14159265359;
writeln (p:1:5);
end.