место readin должно быть readlnВот так должно быть : Program VarIableas;const PI = 3.14; H = 'Привет';var a, b:real; name:string;begin writeln('Введите значение а(вещественные числа с точкой): '); readln(a); writeln('Введите значение b: '); readln(b); writeln( 'Сумма a + b = ',a+b);end.