Какое число будет выведено в результате работы следующей программы?

var k, s: integer;
begin
к:= 1 ; s:=0;
Repeat s := s+k;
K:=k+2
until k<8;
writeln(s)
end.​

/если ввести в программу, вывод - 1.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end. 

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.