Program Perbandingan

Program perbandingan;
Uses crt;
Var a,b,c,I,hasil:integer;
Begin
Write(‘masukkan A:’); readln (A);
Write(‘masukkan B:’); readln (B);
Write(‘masukkan C:’); readln (C);
Hasil:=0;
Writeln (‘output:’);
For I :=A to B do
Begin
    Hasil:= i*i+c*c;
    Writeln:=(I,’*’,I,’+’,c,’*’,c,’=;hasil);
End.
End.