Люди, если кто разбирается, исправьте ошибку. var l: char;
const N = {ОММ-5, SM-5 CМ-7, ОМА-2, UОNI-13/45, SМ-11};
Sr = {UP-2/45, ОZS-2, UONI-13/55, К-5А, UONI-13/65};
L = {UONI-13/85, CL -14, CL -30-63, CL -18-63, NIAT-ZМ};
T = {Gl-14, CL-20-63, CL-26М-63, CL-17-63};
K = {ОZL-14, ОZL-8, CL -11, CL -15-1, ZIО-3};
Z = {ОZL -6, CL -25, ОZL -4, ОZL -9А, ОZL -5, CТ-17};
Zs = {CТ-16-1, CТ-16, CL-1, CТ-7, KTI-7-62};
begin;
writeln (‘Введите марку стали’);
writeln (' если сталь низкоуглеродистая введите - N');
writeln (' если сталь среднеуглеродистая - Sr');
writeln (' легированная - L');
writeln (' теплостойкая - T');
writeln (' коррозионностойкая - K');
writeln (' жаропрочная - Z');
writeln (' жаропрочный сплав - Zs');
readln (l);
Stal:=l;
writeln ('Stal=',Stal);
end.
