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