page-up

uses crt; var a,b:integer; pole:real; BEGIN writeln('Podaj liczbe a kórwa = '); read(a); writeln('Podaj liczbe b tez ='); read(b); pole:=(a*h)/2; writeln('Pole tego 3kata to',pole,'i jest fajnie'); IF pole=0 THEN writeln('I na chój wpisales 0 kórwa'); ELSE writeln('Doóóbry piesek..'); repeat until keypressed; END.

uses crt; var a,b:integer; pole:real; BEGIN writeln('Podaj liczbe a kórwa = '); read(a); writeln('Podaj liczbe b tez ='); read(b); pole:=(a*h)/2; writeln('Pole tego 3kata to',pole,'i jest fajnie'); IF pole=0 THEN writeln('I na chój wpisales 0 kórwa'); ELSE writeln('Doóóbry piesek..'); repeat until keypressed; END.