Написать программу p=a×b

такое может быть ,если попробовать перевести эти данные в какую либо систему счисления. допустим, что все эти числа представлены в двоичной сс.переведем их в десяятичную : 100-число 41000-число 81111-число 151001-число 9

тогда получается, что у меня 4 брата, младшему 8лет, а старшему 15. старший учится в 9 классе. такое имеет место быть

program xjkhjh;

uses crt; var t: string;

  i, summ: byte;

begin  

writeln('введи текст: ');

  readln(t);

  summ: =0;  

for i: =1to length(t)do

  if t[i]in['y','x']then inc(summ);  

writeln('сумма = ',summ);

end.

если pascalabc то вот:

var a,b,p: real;

begin

writeln('введите число a,b');

readln(a,b);

p: =(a*b);

writeln('p = ', p);

end.

program eee;

var

p,a,b: integer;

begin

readln(a,b);

p: =0;

begin

while a> 0 do begin

p: =p+b;

a: =a-1;

end;

writeln(p);

end;

end.