Помогите раставить begi end в турбо делфт

помогите раставить begi end в турбо делфт
program dz2;

{$APPTYPE CONSOLE}

uses
SysUtils,
RusLanguage in '......RusLanguage.pas';

var x,y,w,f1,f2,f3:real;

begin
writeln(rus('введите x,y,w'));
readln (x,y,w);
f1:=x+y+2;
f2:=x+(1/2);
f3:=y+x*w;
if f1>f2 then
if f1>f3 then
f1:=(f1*f1)+1;
writeln(rus('f1='),f1:20:16)
else
f3:=(f3*f3)+1;
writeln(rus('f3='),f3:20:16)
else
if f2>f3 then
f2:=(f2*f2)+1;
writeln(rus('f2='),f2:20:16)
else
f3:=(f3*f3)+1;
writeln(rus('f3='),f3:20:16)

end.

  • Они расставляются логически, это же начало и конец процедуры
  • program dz2;

    {$APPTYPE CONSOLE}

    uses
    SysUtils,
    RusLanguage in '......RusLanguage.pas';

    var x,y,w,f1,f2,f3:real;

    begin
    writeln(rus('????x,y,w'));
    readln (x,y,w);
    f1:=x+y+2;
    f2:=x+(1/2);
    f3:=y+x*w;
    if f1>f2 then begin
    if f1>f3 then begin
    f1:=(f1*f1)+1;
    writeln(rus('f1='),f1:20:16)
    end
    else begin
    f3:=(f3*f3)+1;
    writeln(rus('f3='),f3:20:16)
    end;
    end
    else
    if f2>f3 then begin
    f2:=(f2*f2)+1;
    writeln(rus('f2='),f2:20:16)
    end
    else begin
    f3:=(f3*f3)+1;
    writeln(rus('f3='),f3:20:16)
    end;

    end.
    по моему так (только в ";" мог ошибиться но вроде правильно )