Что неправильно

var uses GraphABC;
uses GraphABC;
var k,t: real;
begin;
readln:k := 10;
t := 50;
while k < 1 do;
begin
t := t-5;
k := k - 2;
end;
end.

freeSkoM    1   05.05.2020 11:48    1