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

Question

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

Comments

Пусть неверно, зато первый))0

---

Это же надо было столько ошибок налепить....

Answer 1

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.

Answer 2

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.