program название;
var a, b, s, p:integer;
begin
writeln ('Введите число a');
readln (a);
writeln ('Введите число b');
readln (b);
s:=a+b;
p:=a*b;
writeln ('Сумма чисел равна:', s);
writeln (Произведение чисел равно:', p);
end.
Объяснение:
/ - деление.
* - умножение.
sqrt - квадратный корень (всё что будет в корне заключается в скобки).
sqr - квадрат (всё что возводится в квадрат заключается в скобки).
В начале вводишь данные с клавиатуры (значение переменной a и значение переменной b).
Переменной s присваивается сумма переменных a и b.
Переменной p присваивается произведение переменных a и b.
Затем, выводится ответ.
Begin
Case t of
1 : GetR:=R1+R2;
2 : GetR:=(R1*R2)/(R1+R2)
else GetR:=-1
end;
end;