Составить программу в pascal для : прямоугольный участок земли имеет периметр р метров. известно, что длина на 20м больше ширины. найдите площадь участка. выберу лучший

Var p,l,w,s: real; begin   read(p);   w: =p/2;   l: =p+20;   s: =l*w;   writeln('s = ',s: 0: 0); end.

Const   cyr=['а'..'я','ё','ё'];   lat=['a'..'z'];   dig=['0'..'9']; var   s,sc,sl,sd,so: string;   i: integer; begin   writeln('введите произвольную строку символов');   readln(s);   sc: =''; sl: =''; sd: =''; so: ='';   for i: =1 to length(s) do       if s[i] in cyr then sc: =sc+s[i]       else           if s[i] in lat then sl: =sl+s[i]           else               if s[i] in dig then sd: =sd+s[i]               else so: =so+s[i];   writeln('кириллица: ',sc);   writeln('латиница : ',sl);   writeln('цифры      : ',sd);   writeln('прочее    : ',so) end. тестовое решение: введите произвольную строку символов запишем следующее выражение: y=5*sin(x)/(3.5*x+sqr(x); (язык pascal) кириллица: запишемследующеевыражениеязык латиница : ysinxxsqrxpascal цифры      : 535 прочее    :     : =*()/(.*+(); ( ) примечание: поскольку в не сказано, что требуется записать все использованные символы только по одному разу, они повторяются.

Vb у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры а вторую процедуру разместите в любом доступном модуле, хоть в той  же форме. не знаю, как вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона. sub aaaa()       dim s as stringr       s = "this is the greatest test string and all k/g characters need to be killed"       deletechar s, "g"       deletechar s, "k"       msgbox s end sub sub deletechar(byref s as string, c as string)       'удаляем из строки s символ c       dim k as integer       do               k = instr(s, c)               if k > 0 then s = left(s, k - 1) + right(s, len(s) - k)       loop while k > 0 end sub тестовое решение: this is the reatest test strin and all / characters need to be illed