Как записать на языке pascal и вычислить следующие выражения: tg5*10корней из 19 2sin3(3-степень) + 2sin2(2-степень)/4,2.4(2,4-степень) + 1 с abc pascal

//PascalABC.Net
function DelWord(s:string):string;
var
  i,n:integer;
begin
  n:=length(s);
  i:=n;
  repeat
    if i>=1 then Dec(i);
  until s[i]=' ';
  Delete(s,i+1,n-i);
  DelWord:=s
end;

var
  st:string;
begin
  Write('Введите строку: '); Readln(st);
  Writeln('Результат: ',DelWord(st))
end.

Тестовое решение:
Введите строку: А роза упала на лапу Азора
Результат: А роза упала на лапу

//PascalABC.Net
function DescDigits(s:string):boolean;
var
  desc:boolean;
  i,n:integer;
  c1,c2:char;
begin
  n:=length(s);
  desc:=true;
  c1:='A'; { главное, чтобы символ был "старше" любой цифры }
  i:=1;
  repeat
    c2:=s[i];
    if c2 in ['0'..'9'] then
      if c2<c1 then c1:=c2 else desc:=false;
    Inc(i)
  until (i>n) or (not desc);
  DescDigits:=desc
end;

var
  s:string;
begin
  Write('Введите строку: '); Readln(s);
  if DescDigits(s) then Writeln('true') else Writeln('false')
end.

Тестовое решение:
Введите строку: Пример строки с цифрами 98 по убыванию 7 6,5, так4тоже1можно!
true

Вариант первой программы для Borland Pascal 7.01
uses Crt;
function DelWord(s:string):string;
var
  i,n:integer;
begin
  n:=length(s);
  i:=n;
  repeat
    if i>=1 then Dec(i);
  until s[i]=' ';
  Delete(s,i+1,n-i);
  DelWord:=s
end;

var
  st:string;
begin
  ClrScr; 
  Write('Введите строку: '); Readln(st);
  Writeln('Результат: ',DelWord(st));
  ReadKey
end.

+ добавил разницу

Объяснение:

//Программа просит пользователя ввести два числа, получает числа от пользователя>>

//и затем печатает сумму, произведение, разность и частное этих чисел.

#include <iostream>

using namespace std;

 

int main()

{

   int x, y, sum, pr, razn, chastn; //объявление

 

   setlocale(LC_ALL, "Russian"); //руссификация командной строки

 

   cout << "Введите два целых числа через пробел "; //приглашение

   cin >> x >> y; //прочитать два целых числа

   sum = x + y;  

   pr = x * y;

   razn = x - y;

   chastn = x / y;

   cout << "Сумма чисел: " << sum << endl << "Произведение чисел: " << pr << endl ;

   cout << "Разность чисел: " << razn << endl << "Частное чисел: " << chastn << endl;

   

   _getch();

   return 0; //показывает, что программа успешно завершена

}