Padėkite su FPS

Sveiki taigi aš naujokas FPS ir man meta prieš "else" klaidą ar galite padėti nes aš jos nerandu :/ Ir jai galite pasakykite ar bent panašiai darau :/.

//duomenu byloje kiekvienoje eiluteje yra duota po tris skaicius
//jeigu tos eilutes skaiciai yra pitagoro skaiciai tos eilutes vietoje reik parasyti taip jeigu nera tada ne
// sqr(x) pakelt kvadratu sqrt(x) istraukti sakni


program Bevardė8;
var  d,r :text;
sk1,sk2,sk3 :integer;
begin
assign(d,'duomenys.txt'); reset(d);
assign(r,'rezultatas.txt'); rewrite(r);
while not EoF(d) do
begin
read(d,sk1,sk2,sk3);
if (sk1>sk2) and (sk1>sk3) then
   begin
   sqr(sk1):= sqr(sk2) + sqr(sk3); writeln(r,'taip')
       else writeln(r,'ne');
   end;
       if (sk2>sk1) and (sk2>sk3) then
        begin
           sqr(sk2):= sqr(sk1) + sqr(sk3); writeln(r,'taip')
               else writeln(r,'ne');
       end;
       if (sk3>sk2) and (sk3>sk1) then
           begin
               sqr(sk3):= sqr(sk2) + sqr(sk1); writeln(r,'taip')
                   else writeln(r,'ne');
           end;
   readln(d);
   end;

close(d);close(r);

end.

Iš anksto dėkoju :)

sqr(sk1):= sqr(sk2) + sqr(sk3);

taip manau rasyti nigalima, kairej pusej manyciau gali buti tik kintamasis

sqr(sk1):= sqr(sk2) + sqr(sk3);

taip manau rasyti nigalima, kairej pusej manyciau gali buti tik kintamasis

padariau taip vistiek ten pat klaida :/

if something then begin 
 doSomething();
end else doSomethingElse();

Be to, priskirti reikšmę gali tik kintamieisems, o

sqr(...) := ...

yra priskyrimas funkcijos grąžinamai reikšmei.

Vietoj

sqr(sk1):= sqr(sk2) + sqr(sk3); writeln(r,'taip')

reikia

if  sqr(sk1) = sqr(sk2) + sqr(sk3) then
writeln(r,'taip')

ir taip pakeisti visur.

Vietoj

 

sqr(sk1):= sqr(sk2) + sqr(sk3); writeln(r,'taip')

 

reikia

 

if  sqr(sk1) = sqr(sk2) + sqr(sk3) then
writeln(r,'taip')

 

ir taip pakeisti visur.

Labai ačiū :)

http://hhh.upe.lt:8088/view/pit.pas source

http://hhh.upe.lt:8088/pascal/pit vykdymas

http://hhh.upe.lt:8088/view/duomenys.txt duomenys

http://hhh.upe.lt:8088/view/rezultatas.txt rezultatas

kitas variantas

http://hhh.upe.lt:8088/view/pit3.pas