togel

Program Ramalan_Togel;
Uses WinCrt;
Var
 a,b,c,d : Integer;
begin
clrscr;
 Writeln('|================================================================|');
 Writeln('|  Selamat Datang Di Prediksi Togel Copyright by Khoirul Arifin  |');
 Writeln('|================================================================|');
 writeln('Masukkan Angka As');
 readln(a);
 Writeln('Masukkan Angka Kop');
 Readln(b);
 Writeln('Masukkan angka kepala');
 Readln(c);
 Writeln('masukkan angka ekor');
 Readln(d);
 Writeln('tambahkan angka as dan kop');
 Write(a+b);
 Writeln('tambahkan agar dapat angka 10');
 Write(10-(a+b));
 writeln;
 writeln('naikkan satu tingkat dan jumlahkan');
 write(10-(a+b)+1+(10-(a+b)));
 writeln;
 writeln('turunkan satu tingkan dan jumlahkan');
 Write(10-(a+b)-1+(10-(a+b)));
 writeln;
 writeln('kurangkan dengan angka ekor');
 write((10-(a+b)-1+(10-(a+b))-d));
 writeln;
 writeln('naikkkan satu tingkat');
 write(((10-(a+b)-1+(10-(a+b))-d))+1);
 writeln;
 writeln('maka angka prediksi yg keluar adalah antara : ');
 write(((10-(a+b)-1+(10-(a+b))-d)));
 writeln;
 writeln('dan');
 write(((10-(a+b)-1+(10-(a+b))-d))+1);
end.