Если PascalABC то вот:
var a,b,p:real;
begin
Writeln('Введите число a,b');
readln(a,b);
p:=(a*b);
Writeln('p = ', p);
end.
Память компьютера под номером 2 больше так как гигабайтов больше
ПаскальАВС.нет
var
n:integer;
s:string;
begin
readln(n);
s:=StringOfChar('*',n);
writeln(s);
<span>end.</span>