Паскаль. кто первый подредактирует код, чтоб работал, тому 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
  end
end.

Program qwer;
uses crt;
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;
end;
end.