Паскаль! Программа Калькулятор самая простая программа, 9 кл

program kalkul;
uses crt;
label 10,11;
var chislo1,chislo2:integer;
sim1,sim2,sim3,simv4,sim : char;
otv:real;
begin
clrscr;
write('vvesti pervoe chislo --> ');
readln(chislo1);
write('vvesti vtoroje chislo --> ');
readln(chislo2);
writeln(' MENU');
writeln('----------------');
writeln( ' + slojene ');
writeln( ' - vichitanie ');
writeln( ' * umnojenie ');
writeln( ' / delenie ');
writeln('----------------');
write('vash vibor -->');
10: gotoxy(15,10);
readln(sim);
if (sim='+') or (sim='-') or (sim='*') or(sim='/')
then goto 11
else begin writeln('neverno vveden znak'); goto 10; end;
11: case sim of
'+': begin otv:= chislo1 + chislo2; end;
'-': begin otv:= chislo1 - chislo2; end;
'*': begin otv:= chislo1 * chislo2; end;
'/': begin otv:= chislo1 / chislo2; end;
end;
writeln;
writeln(chislo1,' ',sim,' ',chislo2,' = ',otv);
readln;
end.
{program kalkul;
uses crt;
label 10,11;
var chislo1,chislo2:integer;
sim1,sim2,sim3,simv4,sim : char;
otv:real;
begin
clrscr;
write('vvesti pervoe chislo --> ');
readln(chislo1);
write('vvesti vtoroje chislo --> ');
readln(chislo2);
10: writeln('vvesti znak +, -*, / --> ');
read(sim);
if (sim='+') or (sim='-') or (sim='*') or(sim='/')
then goto 11
else begin writeln('neverno vveden znak'); goto 10; end;
11: case sim of
'+': begin otv:= chislo1 + chislo2; end;
'-': begin otv:= chislo1 - chislo2; end;
'*': begin otv:= chislo1 * chislo2; end;
'/': begin otv:= chislo1 / chislo2; end;
end;
writeln(chislo1,' ',sim,' ',chislo2,' = ',otv);
readln;
end.
program kalkul;
uses crt;
var n:integer;
c:boolean;
begin
clrscr;
write('vvesti chislo N --> ');
readln(n);
c:= (n mod 10) mod 2 =0;
writeln(c);
readkey;
end. } {
uses crt;
label 1;
var s,kod: string;
i,res,ch1,ch2: integer;
begin
clrscr;
randomize;
writeln('Как твоё имя?');
readln(s);
writeln('Привет, '+s);
writeln('Реши пример');
i:=random(2);
if i=1 then
kod:='+'
else
kod:='-';
ch1:=random(99);
ch2:=random(99);
1: writeln(ch1,kod,ch2);
write('tvoy otvet: ===>');
readln(res);
if (res=ch1+ch2) and (kod='+') then
writeln('Молодец, правильно')
else if (res=ch1-ch2) and (kod='-') then
writeln('Молодец, правильно')
else begin
writeln('плохо, перерешай пример');
goto 1; end;
readkey;
end.

uses crt;
const op=['+','-','/','*'];
var x:char; a,b:real;
begin
clrscr;
write('Первое число = '); readln(a);
write('Второе число = '); readln(b);
repeat
write('Знак матем. действия: ');
readln(x);
until x in op;
write('Результат: ');
case ord(x) of
43: write(a+b:1:2);
45: write(a-b:1:2);
47: write(a/b:1:2);
42: write(a*b:1:2);
end;
readkey;
end. }

отлично. ненужная программа на полумертвом языке