спирина1

17.03.2023 14:46 •  Информатика

Программа выдаёт ошибку когда ввожу (11-11 ооо), что делать? program number;
var a,b,c:string;
x,y,z:integer;
begin
writeln('Введите номер автомобиля');
readln(a);
b:=copy(a,2,3);
c:=copy(a,3,2);
x:= strtoint(b);
y:= strtoint(c);
z:=x+y;
if z=100 then
writeln('номер счастливый')
else
writeln('номер несчастливый');
end.