Нужен человек который шарит в программировании. такова нужно в программе описать каждую строчку подробно что она означает. . unit unit1; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) edit1: tedit; edit2: tedit; edit3: tedit; label1: tlabel; label2: tlabel; label3: tlabel; label4: tlabel; label5: tlabel; button1: tbutton; procedure button1click(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject); var x, y, z, p: real; begin x: =strtofloat(edit1.text); y: =strtofloat(edit2.text); z: =strtofloat(edit3.text); p: =(3*x*(exp(3*ln(+(sqrt(y+sqr(x)*z))+ln(z)); p: =p/(abs(x-y+sqr(z))+(sin(x)*sin(; label5.font.color: =clblue; label5.caption: ='результат: '+#13+'p='+ floattostr(5); end; end.

Unit Unit1; Название модуля

Interface Ключевое слово Interface начинает определение внешнего интерфейса модуля.

Uses Ключевое слово Uses определяет список одного или более модулей, которые используются текущим модулем, программой или библиотекой.

Type Ключевое слово Type является фундаментальной частью Delphi оно позволяет создать новые категории (типы) переменной и процесса.

TForm1 = class(TForm) Ключевое слово Class это центральная часть Объектно-ориентированного кода. Объявление класса имеет следующее типичное описание :
Private Определения данных/методов локальные для этого модуля
Protected Определения данных/методов, локальных для этого класса + потомки
Public Определения данных/методов пригодных для использования всеми объектами этого класса 
Published Внешне общественные определения

Edit1: TEdit; Компонент Delphi представляет собой однострочное текстовое поле, служащее для ввода данных пользователем
Label1: TLabel; компонент который позволяет отображать текст
Button1: TButton; Кнопка
procedure Button1Click(Sender: TObject); Процедура которая сработает если кликнуть на кнопке

var 
Ключевое слово Var используется, чтобы начать раздел определения переменных. 

Form1: TForm1; Определяем переменную типа TForm1   смотри выше

Implementation Ключевое слово Implementation начинает активный раздел кода модуля - где объявления интерфейса реализовываются.

{$R *.dfm}//Подключение .dfm файла (файл с данными о визуальных объектах)

procedure TForm1.Button1Click(Sender: TObject); Не посредственно сама процедура обработки события нажатия кнопки

varx,y,z,p:real; Объявляем переменные вещественного типа real

Begin Начало кода процедуры

x:=StrToFloat(Edit1.Text);y:=StrToFloat(Edit2.Text);z:=StrToFloat(Edit3.Text); Считываем текст из однострочное текстовое поле, StrToFloat – пытаемся преобразовать в вещественное значение

p:=(3*x*(exp(3*ln(y)))+(sqrt(y+sqr(x)*z))+ln(Z));
p:=p/(Abs(x-y+sqr(z))+(sin(x)*sin(x)));
Производим расчеты

Label5.Font.color:=clBlue;
Label5.Caption:='Результат:'+#13+'p='+ FloatToStr(5);
Делаем цвет текста голубой, и отображаем значение цифры 5, скорее всего наверное имелось введу «p»,    #13 это начать с новой строчки – как будто нажали клавишу Enter

end;
Конец процедуры кнопки

end.
конец модуля

Обращаем Ваше внимание, что в соответствии с Федеральным законом N 273-ФЗ «Об образовании в Российской Федерации» в организациях, осуществляющих образовательную деятельность, организовывается обучение и воспитание обучающихся с ОВЗ как совместно с другими обучающимися, так и в отдельных классах или группах.

Только сейчас Вы можете пройти дистанционное обучение прямо на сайте "Инфоурок" со скидкой 40% по курсу повышения квалификации "Организация работы с обучающимися с ограниченными возможностями здоровья (ОВЗ) в соответствии с ФГОС" (72 часа). По окончании курса Вы получите печатное удостоверение о повышении квалификации установленного образца (доставка удостоверения бесплатна).

var

 s:string;

 i,count:integer;

 a: set of char;

begin

 i:=3;

 readln(s);

 writeln('1)');

 if length(s)>=3 then

   repeat

     write(s[i]);

     i:=i+3;

   until i>length(s)

     else

       writeln('error');

 writeln;

 writeln('2)');

 i:=2;

 repeat

   write(s[i]);

   i:=i+2;

 until i>length(s);

 writeln;

   i:=1;

 repeat

   write(s[i]);

   i:=i+2;

 until i>length(s);

 writeln;

 writeln('3)');

 a:=[];

 count:=0;

 for i := 1 to length(s) do

   if s[i] in a then

     else

       begin

         a:=a+[s[i]];

         inc(count);

       end;

 writeln(count);

end.