Argh! Pascal e a famosa linha 18 - Need Assitance

[Gaminger]

OI...sim é o que acontece quando o ensino escolar anda atrasado (sim e eu ja tou habituado), por isso mais uma vez fui estudar sozinho...neste caso tou a falar do pascal, ja era para eu saber algumas dele mas aínda nem demos o "Para" na algoritmia... emfim Pascal parece simples e tal e eu ando a fzr um prog pa testar e tal...mas o raio da linha 18 tem um erro que eu não encontro:

program Calculos;
uses wincrt ;
var v1, v2 : integer;
var s, sb, m, d : char;
var s_n : char;

begin
writeln('***Alguns C*lculos em Pascal 0.1***');
writeln;
writeln('___________________________________');
writeln;
repeat
writeln('Insira um n£mero positivo e inteiro');
readln(v1);
writeln('Insira outro n£mero positivo e inteiro');
readln(v2);
s:=v1+v2
sb:=v1-v2
m:=v1*v2
d:=v1/v2
writeln('Os resultados sÆo:');
writeln;
writeln('Soma:',s);
writeln;
writeln('Subtrac‡Æo:',sb);
writeln;
writeln('Multiplica‡Æo:',m);
writeln;
writeln('DivisÆo:',d);
writeln('Deseja calcular com mais numeros?Inserir: s=sim n=nÆo.')
readln(s_n);
until s_n = 'n';
writeln;
writeln;('Prima ENTER para sa¡r do programa.');
writeln;
readln;
end.

Fico agradecido por todos os masters os programing que me ajudem a encontrar este erro. BTW: As linhas a negrito são as linhas que penso terem o erro...eu ainda não sei como esta coisa maldita faz a contagem das linhas mas parece que na é como eu pensei.

 

[[BoB]Marley]

ja tou um bocado enferrujado no pascal, mas...

var s, sb, m, d : char; ????
pk nao double ou int? n será disso que estará a dar o erro?

 

[Gaminger]

Sim sim tb tá mal mas não era esse o problmea...ja corrigi o da linha dezoito agr tenho um problema na linha 37

 

[Encarnado]

readln não precisa de variavel?

 

[Gaminger]

hmmmmm

 

[[BoB]Marley]

readln não precisa de variavel?

pois... tb penso ke seja isso... senao o ke é ke o readln ia ler?


p.s.: só axo um bocadinho xato é andar a contar as linhas... é ke se um gajo se engana contar...

 

[BlueBird]

readln não precisa de variavel?

Também serve para entrar "em espera"...

s:=v1+v2
sb:=v1-v2
m:=v1*v2
d:=v1/v2
[...]
writeln('Deseja calcular com mais numeros?Inserir: s=sim n=nÆo.')

Faltam aí ;

 

[Delta]

é isso mesmo

cada linha de instrução deve ser terminada por ";"

excepto em casos tipo assim :

If exp1 Then
If exp2 then
Stat1
else
stat2;

em que Stat1 é precedido imediatamente por Else, com um ";" no Stat1 nem sei se ele quebra o bloco IF

já não me lembro