дан диаметр окружномти d. найти ее длину l=p*d. в качестве значения p использовать 3, 14

var l, p, d: real;label undf;beginundf: writeln('Введите диаметр окружности:');readln( d );p := 3.14;l := p * d;writeln( 'Длина равна ', l );end.