Что делать, не могу понять что не так, пишет встречено writeln, а ожидалось ';' PI = 3.14; H = 'Hello'; var a, b: integer; name: string; begin writeln ('Введите своё имя: '); readln (name); writeln (H, ', ',name, '!'); writeln ('Введите значение a: '); readln (a); writeln ('Введите значение b: '); readln (b) writeln('Сумма a + b = ',a+b) end.