Если это среда разработки то нужно объявить переменные X и Y
далее написать схему выполнения данной задачи
1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.
П0 sin ИП0 1/x + С/П
Для значения 5 выдаёт "-7,5892425 -1".
Пуск
Программа
Магазин и т. д.