Sad

Program Liquidacion_de_sueldo; (no escribir esto 0-a)
Uses
crt;
Var
nomfun : string;
suemes, previ : Real;
x, numhi, ditra : integer;
Begin
TextBackground(blue);
For x:= 10 downto 1 do begin
nomfun:=' ';
suemes:=0;
previ:=0;
numhi:=0;
ditra:=0;
clrscr;
textcolor(red);
GotoXY(30,1);write('LIQUIDACIàN DE SUELDO');
GotoxY(30,2);write('=-=-=-=-=-=-=-=-=-=-=-=-=-');
textcolor(green);
Gotoxy(1,4); Writeln('Nombre de funcionario:');
Writeln('Numero de hijos :');
Writeln('Dias Trabajados :');
Writeln('Sueldo del mes :');
writeln('Prevision :');
Textcolor(yellow);
GotoXy(23,4);Readln(nomfun);
Gotoxy(23,5);Readln(numhi);
Gotoxy(23,6);Readln(ditra);
suemes:=(numhi * 2000) + (10000 * ditra);
previ:=suemes*0.1975;
Gotoxy(23,7);write(suemes:1:2);
GotoXy(23,8);write(previ:1:2);
Readkey;
End;
End.

Program temperaturas;(no escribir esto no c)
Uses
Crt;
Var
NR , Y , X:Integer;
TD , TTD , TP : Real;
Begin
TextBackGround (Blue);
ClrScr;
Y:=0;
Repeat
Repeat
TTD:=0;
GotoXY (20,2); Write ('TEMPERATURAS');
GotoXY (2,4); Write ('N-mero de Regi¢n : ');
GotoXY (2,6); Write ('Temperatura del d¡a de 7: ');
GotoXY (2,8); Write ('Temperatura Promedio : ');
GotoXY (32,4); ReadLn (NR);
For x:= 7 downto 1 do begin
TD:=0;
GotoXY (23,6); Write (X);
GotoXY (32,6); ReadLn (TD);
TTD:=TTD+TD;
End;
TP:=TTD/7;
GotoXY (32,8); Write (TP:6:1);
GotoXY (20,10); Write ('PULSE UNA TECLA PARA CONTINUAR');
Readkey;
Until (Y=4) or (NR=0);
ReadKey;
Until (Nr=0);
End.