Составить программу для нахождения значения выражения )

[dodyks]

Помогите составить программу для нахождения значения выражения
C/M

если С := k+3
m := c*c+7

[sby]

(к) должно вводится с клавиатуры?

[sby]

program pomosch;
uses crt;
var c,k,m:integer;
begin
write('fff=');
readln(k);
c:=k+3;
m:=c*c+7;
writeln('m=',m);
readln;
end.

[Sergeevich]

Помойму нужно сделать так

program pomosch;
uses crt;
var c,k,m:integer;
begin
write('fff=');
readln(k);
c:=k+3;
m:=c*c+7;

writeln('Ответ=',c/m);

readln;
end.

[dodyks]

Сообщение от sby

program pomosch;
uses crt;
var c,k,m:integer;
begin
write('fff=');
readln(k);
c:=k+3;
m:=c*c+7;
writeln('m=',m);
readln;
end.

большое спасибо ))))