---Pascal---

Nje program i vogel ne gjuhen e programimit "PASCAL"

{---------------------------------------------------------}
{Conversions degres-radians entre deux limites specifiees}

program DegresRadians;
{$APPTYPE CONSOLE}
uses
sysutils;

VAR
degres,min,max: INTEGER;
radians: REAL;

begin
Writeln('Conversion degres-radians');
Writeln('=========================');
Writeln;
Write ('Minimum: ');
Readln(min);
Write ('Maximum: ');
Readln(max);
Writeln;

IF min > max then
Writeln('Erreur ! valeur minimum est plus grand que valeur maximum !!')
else

begin
Writeln(' Degres Radians');
Writeln(' ------ -------');
for degres:=min to max do
begin
radians:=degres*pi/180;
Writeln(degres:10,radians:15:5);
end;
end;
readln;
end.