discute valore per variabile adenominatore

esci altro.htm

program discute;
uses crt;
var x,v:integer;
y:real;
begin
clrscr;
writeln('risolvere la frazione 10+a/a-2');
writeln('valore da assegnare alla lettera a=');readln(x);
if x-2<>0
then
begin
y:=(10+x)/(x-2);
writeln(y:8:2);
end
else writeln('valore di a non accettabile');
writeln('premi invio per proseguire');readln;clrscr;
writeln('risolvere la frazione 12(a-2)/(a-2)');
writeln('valore da assegnare alla lettera a=');readln(x);
if x-2<>0 then
begin
y:=12*(x-2)/(x-2);
writeln(y:8:2);
end
else writeln('indeterminata');
writeln('premi invio per proseguire');readln;
clrscr;
end.