Паскаль.
Кто первый подредактирует код, чтоб работал, тому 30 баллов! Первому!

Программа : Калькулятор

var a,b,c,d:integer;
Begin;
writeln('1 - Сумма');
writeln('2 - Разность');
readln(d);
case d of;
1:
writeln('Напишите числа');
readln(a,b):
C:=a+b;
writeln('Сумма =',c):
2:
writeln('Напишите числа');
readln(a,b):
C:=a-b;
writeln('Разность=',c):
end;
end.

var  a,b,c,d:integer;begin  writeln('1 - Сумма');  writeln('2 - Разность');  readln(d);  case d of  1: begin    writeln('Напишите числа'); readln(a,b);    C:=a+b; writeln('Сумма =',c)    end;  2: begin    writeln('Напишите числа'); readln(a,b);    C:=a-b; writeln('Разность=',c)    end  endend.

program qwer;uses crt;var a,b,c,d:integer;Beginwriteln('1 - Сумма');writeln('2 - Разность');readln(d);case d of1: beginwriteln('Напишите числа');readln(a, b);c := a + b;writeln('Сумма = ',c);end;2: beginwriteln('Напишите числа');readln(a, b);c := a - b;writeln('Разность = ',c);end;end;end.