Zitat:
PROGRAM temp;
VAR lan,dirg,dire:STRING;
cg1,cg2,fg1,fg2,ce1,ce2,fe1,fe2:REAL;
BEGIN
WriteLn('Englisch or Deutsch? (E/D)');
ReadLn(lan);
BEGIN
IF 'D'=lan THEN
WriteLn('Hallo. Fahrenheit in Celsius?(J/N)');
ReadLn(dirg);
IF 'J'=dirg THEN
BEGIN
WriteLn('Bitte Temperatur in Fahrenheit angeben: ');
ReadLn(fg1);
cg1:=(fg1-32)*(5/9);
WriteLn('Es ist zZ ',cg1,'Grad Celsius warm.');
END;
ELSE
IF 'N'=dirg THEN
BEGIN
WriteLn('Bitte Temperatur in Celsius angeben: ');
ReadLn=(cg2);
fg2:=(9/5)*cg2+32;
WriteLn('Es ist zZ ',fg2,'Grad Fahrenheit warm.');
END;
END;
ELSE
IF 'E'=lan THEN
BEGIN
WriteLn('Welcome. Fahrenheit in Celsius?(Y/N)');
ReadLn(dire);
IF 'Y'=dire THEN
BEGIN
WriteLn('Please enter the temperature in fahrenheit: ');
ReadLn(fe1);
ce1:=(fe1-32)*(5/9);
WriteLn('It is ',ce1,'degrees celsius at the moment.');
END;
ELSE
BEGIN
WriteLn('Please enter the temperature in celsius: ');
ReadLn(ce2);
fe2:=(9/5)*ce2+32;
WriteLn('It is',fe2,'degrees fahrenheoit at the moment.');
END;
ELSE
BEGIN
WriteLn('Error. Please try again. / Fehler. Bitte erneut versuchen.');
ReadLn;
END;
END.

Zitat:
program fahrenheitkonvertierungcelsius;
var
f, c : real;
begin
write('Bitte Wert für Fahrenheit eingeben: ');
readln(f);
c := (f - 32) * 5 / 9;
writeln('Das sind ',c,' Celsius.')
end.

Zitat:
ELSE
IF 'N'=dirg THEN
BEGIN
...