Составить программу Paskal для:
1)Найти стороны прямоугольника, у которого известны периметр и площадь
2)Дано трехзначное натуральное число. Определить, является ли сумма его цифр двузначным числом

Pascal ABC1)Var P,S:real;BeginWrite('P = ');Read(P);Write('S = ');Read(S);if (P/2-sqrt(P*P/4-4*S))/2<0 then S:=(P/2+sqrt(P*P/4-4*S))/2else S:=(P/2-sqrt(P*P/4-4*S))/2;WriteLn('Первая сторона равна ',S);WriteLn('Вторая ',P/2-S);End.2)VarA:integer;BeginWrite('A = ');Read(A);if ((A div 10) mod 10) +(A mod 10)+(A div 100)>9 then Write('Является')else Write('Не является')End.