Дописать фрагмент программы, чтобы получить ответ, чему равно значение а и b? a: =10; b: =15; if a> b then b: =a+b; a: =a+b (допишите начало и конец)

var a,b:integer; 
begin

a:=10;
b:=15;
if a>b  then b:=a+b;
a:=a+b;

writeln(a);

writeln(b);

end;

program v5;

begin

writeln('█▀█░░█░█░█▀█░█▀█░█░░░█░█▀▄▀█');

writeln('█░▄░░█▀█░█░█░█▀▄░█▀█░█░█░█░█');

writeln('▀▀▀░░▀░▀░▀▀▀░▀▀▀░▀▀▀░▀░▀░░░▀');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░█▀▀░█▀█░░█▀█░░█▀█░█▀▄▀█░░█░');

writeln('░█░░░█░█░░█░█░░█░█░█░█░█░░▀░');

writeln('░▀░░░▀▀▀░█▀▀▀█░▀▀▀░▀░░░▀░░▀░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░▄██▄░░░░░░░░░░░░');

writeln('░░░░░░░░░░▄██████▄░░░░░░░░░░');

writeln('░░░░░░░░▄████░█████▄░░░░░░░░');

writeln('░░░░░░▄█████████░████░░░░░░░');

writeln('░░░░░░░░░▄██░█████▄░░░░░░░░░');

writeln('░░░░░░░▄████████████▄░░░░░░░');

writeln('░░░░░▄███░███████░████▄░░░░░');

writeln('░░░▄████████░███████████▄░░░');

writeln('░░░░░░▄█████████░████▄░░░░░░');

writeln('░░░░▄████░█████████░███▄░░░░');

writeln('░░▄██████████░███████████▄░░');

writeln('▄█████░█████████████░██████▄');

writeln('▀▀▀▀▀▀▀▀▀▀▀▀████▀▀▀▀▀▀▀▀▀▀▀▀');

writeln('░░░░░░░░░░░░████░░░░░░░░░░░░');

writeln('░░░░░░░░░░░░░░░░░░░░░░░░░░░░');

writeln('░░█▀▀▀█░█▀▀▀▀█░█▀▀▀█░█▀▀▀▀█░');

writeln('░░█▄█░█░█░██░█░█▄█░█░█░██░█░');

writeln('░░█░▄██░█░██░█░█░▄██░█░██░█░');

writeln('░░█▄▄▄█░█▄▄▄▄█░█▄▄▄█░█▄▄▄▄█░');

end.

алгоритм далек от совершенства, медленный, но считает правильно. Паскаль

Объяснение:

var

 col: integer;

 i, k: longint;

 del: boolean;

function prost(a: longint): boolean;

var c: integer;

begin

 prost := a >= 2;

 for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;

end;

begin

 i := 2;

 col := 1;

 repeat

   del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);

   for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;

   if del then

   begin

    Write(i, ', ');

    inc(col);

   end;

   inc(i);

 until col > 1000;

end.