Ajuda a criar 1 questionário funcional

[Jammin @]

Programa de médias...

program media;
var x :integer;
y :integer;
z :integer;
S :real;
Q :real;
M :real;
begin
writeln('Insira a nota do primeiro periodo');
readln(x);
writeln('Insira a nota do segundo periodo');
readln(y);
writeln('Insira a nota do terceiro periodo');
readln(z);
S:=x+y+z;
Q:=s/3;
M:=Q;
writeln('A sua media e ',M,'...');
end.

Ele não tem erros mas depois de inserir os dados ex: 12,13,16... ele fecha e nem diz

A sua media e de...

Alguem ajuda sff

 

[Jammin @]

Ja consegui

program media;
var x,y,z :integer;
S :real;
Q :real;
M :real;
begin
writeln('Insira a nota do primeiro periodo');
readln(x);
writeln('Insira a nota do segundo periodo');
readln(y);
writeln('Insira a nota do terceiro periodo');
readln(z);
S:=x+y+z;
Q:=S/3;
writeln('A sua media e ',Q,'...');
readln(Q);
end.

O Pior e que isto da numeros impossiveis

ex: 1,300000000000000E

Ajuda?