Информатика,помогите.

Вобщем парни помогите нужно объяснить что это означает:Var E,R1,R2,R3,R23,K,I1,U2:real Write ('tekst E(B)='); Read (E);

Var E,R1,R2,R3,R23,K,I1,U2:real

объявление переменных E,R1,R2,R3,R23,K,I1,U2 типа: real (числа с плавающей точкой)

-Write ('tekst E(B)=');

вывод строки на экран: tekst E(B)=

Read (E);

считывание переменной E с клавиатуры

но явно видно что ты намудрил в коде
UPD: выкладывай что от тебя хотят преподы

В том то и дело что хотят что бы я объяснил что значат эти строчки.ЩА парни еще напишу пару строк,за помощь в долгу не отстануся

if E>0; Then Begin R23:=R2*R3/(R2+R3); U2:=R23*E/(R1+R23);
End
Else
U2:=R3*E/(R1+R3);
Что в целом означает эта запись?

if E>0; Then Begin

точка с запятой не нужна после E>0
читается так: если E больше нуля то...

R23:=R2*R3/(R2+R3);
U2:=R23*E/(R1+R23);
End;

ну тут и ежу понятно, какието арифметические действия...

Else
U2:=R3*E/(R1+R3);

Если условие E>0 не выполняется, то "else" (иначе) выполняется следующее действие U2:=R3*E/(R1+R3)

И ВОТ ЕЩЕ.Что значит эта функция?
function U2t(e,R3:real):real;
begin {U2,t}
if e>0
then
begin
R23:=R2*R3/(R2+R3);
U2t:=R23+e/(R1+R23);
end;
U2t:=R23*e/(R1+R3);
end;{u2t}

function U2t(e,R3:real):real;

объявление функции с именем U2t, типом входных значений real и выходных тоже real

всё что между begin и end называется тело функции

чот мне кажется функция какаято корявая( помню толкьо на си что выход: return(); а на делфи/паскале забыл уже