var a,b,c,d: real;
Writeln ('Введите значение a',a);
Writeln ('Введите значение b',b);
Writeln ('a+b=', c);
Writeln ('a*b=', d);