Калькулятор на паскаль, удобнее нигде не нашел.

[Alexashechka]

Только если вместо знаков +, -, *, / ввести что-то другое, то не выводится ошибка, не знаю как сделать, ответ в итоге получается неверный

program calculator;
var a,b:Real;
z:string[1];
begin
writeln('число');
readln(a);
writeln('знак');
readln(z);
writeln('число');
read(b);
if z='+' then b:=b+a;
if z='-' then b:=b-a;
if z='*' then b:=b*a;
if z='/' then b:=b/a;
while z<>'=' do
begin
writeln('знак');
read(z);
if z='=' then write(b) else
begin
writeln('число');
read(a);
end;
if z='+' then b:=b+a;
if z='-' then b:=b-a;
if z='*' then b:=b*a;
if z='/' then b:=b/a;
end;
readln;
end.

[alexcoder]

Alexashechka, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1

[Arigato]

Alexashechka, вы хотите заказать работу за деньги или что?

[WorldMaster]

Уже плохо помню как там в паскале но логика то будет такая:

var isOK:Boolean;
...
isOK :=False;
while isOK <> True do
begin
readln(z);
if z='+' then begin b:=b+a; isOK := True; end;
else if z='-' then begin b:=b-a; isOK := True; end;
else if z='*' then begin b:=b*a; isOK := True; end;
else if z='/' then begin b:=b/a; isOK := True; end;
else writeln('знак не распознан. повторите ввод'); 
end;

Ну или как то так ...