Programmu teksti

Sastādi programu kas rēķina taisnstūra laukumu
program skaitli;
var x,y: integer;
begin
writeln('ievadi vienu vesalu skaitli');
readln(x);…