TP // tabliczka_mnozenia.pas

uses crt;
var a:real;

begin
clrscr;
writeln(‘podaj liczbe: ‘);
read(a);
if (a=0) then
writeln(a:6:2,’= 0′)
else
begin
if (a>0) then
writeln(a:6:2,’ > 0′)
else
writeln(a:6:2,’ < 0′)
end;
delay(5000);
end.