Так вот что в это программе лишнее или как можно её улучшить:
program l;
uses crt;
var
a,b,z:real;
d,r:char;
g:boolean;
begin
clrscr;
highvideo;
writeln(' CALCULATOR ');
write(' by -=[SuRiV]=- ');
delay(2000);
clrscr;
g:=false;
repeat
normvideo;
writeln;
write('‚ўҐ¤ЁвҐ ЇҐаў®Ґ зЁб«® ');
readln( a );
write('‚ўҐ¤ЁвҐ ўв®а®Ґ зЁб«® ');
readln( b );
write('‚ўҐ¤ЁвҐ § Є ¤Ґ©бвўЁп ');
readln(d);
case d of
'+': z:=a+b;
'-': z:=a-b;
'*': z:=a*b;
'/': z:=a/b;
else
g:=true;
write('Ќ ¤® Ўл«® ўўҐбвЁ § Є ¤Ґ©бвўЁп!');
delay(2000);
halt;
end;
writeln('ЋвўҐв:',a:5 :1,d,b:5 :1,' = ',z:5 :2);
write('…йс а §®Є(Y/N)');
readln®;
if r='n' then
begin
write('Љ «мЄг«пв®а § ўҐаи Ґв бў®о а Ў®вг...');
g:=true;
end;
until g;
readln;
end.
:p2: