Нужно написать 4 программы в паскале! Хотя бы сколько нибудь спасибо!!!

Program 1;
Var a,b:Integer;
с:real;
begin
a:=6;
b:=7;
c:=b/a;
writeln('c',c:5:2);
end.